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Base de datos 


Usando el programa BASE DE DATOS podrá almacenar 
todos sus registros en el ordenador y no tendrá excusa 
por no poder encontrar alguna información. 

Los datos se almacenan en el ordenador en forma de tabla 
(en la línea 40 se inicializa dicha tabla). Cuando ejecute el 
programa se presenta en pantalla un menú con las opcio- 
nes disponibles, de manera que usted sólo tiene que pulsar 
la tecla de la opción deseada. 


Estas opciones son: 


1. Crear fichero Cuando pulse la tecla 1, el ordenador le 
preguntará el nombre del fichero en el que va a guardar 
los registros. El fichero está estructurado en columnas y el 
ordenador le irá pidiendo que introduzca el dato de la 
columna 1, la 2 y así sucesivamente. Para volver al menú 
principal escriba (We en lugar de un dato, y para pasar a la 
columna siguiente escriba (Vn. Hay un máximo de 50 co- 
lumnas de 50 filas cada una. 

2. Ver fichero Esta opción le permite ver el fichero que 
acaba de introducir. Primero se presenta la primera colum- 
na. Cuando la pantalla está llena aparece la pregunta 
«Scroll?». Si en este momento pulsa la tecla SPACE o la 
N, el programa se detiene, con cualquier otra tecla conti- 
nua la presentación de la columna. Si durante la presenta- 
ción se pulsa la tecla N se pasa a la siguiente columna. Y, 
con la tecla E se vuelve al menú principal. Pulsando H la 
presentación se detiene hasta que oprima cualquier otra 
tecla. 

3. Editar fichero Esta opción permite cambiar cualquier 
dato que haya introducido usando la opción 1. El ordena- 
dor le preguntará por la fila y la columna donde se encuen- 
tra el dato que desea variar y presentará por pantalla lo 
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Base de datos Base de datos 
l que hay en esa posición. Seguidamente le preguntará por k 199 PRINT 
el dato que debe sustituirle. 299 PRINT  INVERSE 13 FLASH 15" 
| 4. Cargar fichero Esta opción le pregunta por el nombre Introduzca la opcion" 
l del fichero que quiere cargar y hace un LOAD de dicho 219 PAUSE $ 
| fichero. Este fichero debe haber sido grabado previamente 229 LET bDe=INKEYS 
con la opción 5. a 239 IF b$<"1" OR ba>"6" THEN 6G 
5. Grabar fichero Esta opción guarda el fichero que hay O TO 218 
| en memoria en una cinta. 249 CLS 
| 6. Buscar Una vez creado el fichero, mediante esta op- 259 GO SUB VAL b$*1999 
' ción podemos localizar cualquier dato, escribiendo los en- 269 CLS 
| cabezamientos de la fila y columna en que se encuentra. 279 GO TO 59 
l 1999 INPUT "Nombre ";j LINE +% 
| / 1919 LET c=1 
l nm 
| o PRINT AT 19,8)"Base de Dato ARE el 
| 1939 CLS 
| g PAUSE 
ll pl Al en 1999 PRINT "Columna "¿jc 
| al 1959 PRINT rj; INPUT ""3 LINE 15 
| 49 DIM a$(35,35,32) y ESA le 


59 PRINT TAB 19;"Opciones" " 
="(Mde" THEN LET : 
| 69 PRINT AT 9,19; OVER 15" o e yuca 


A mm. LET r=35: GO TO 1999 
| e JN bel On” THEN LET r=35: 
89 PRINT "Crear ftficherOD.....:. 19889 LET a$(c,r)=is% 


Sn a od Ñ 1098 LET r=r+1 


l 
| ¿8 e! Mods bos 1199 IF r<>36 THEN GO TO 1959 
ll 25 oa barint 1119 LET c=c+1: LET r=1 
RAR | pes ai THEN GO TO 1939 
”n 
128 PRINT Ds ficherD...... pio peeling 
1398 PRINT 2095 CLS eel Columna "5c 
148 PRINT "Cargar +fichero...... SO LONGAO 171000 <56 
| 4 2029 PRINT r3""jas$(c,r) 
e e De 2039 PAUSE 25 
l 159 PRINT ME se 
| 168 PRINT "Grabar +fichero...... la A IS 
EA, DUO 
| qee 2932 IF INKEYS="e" THEN LET r=3 
189 PRINT "BUBCaM-....o..oooo... A 
| da 1008 BIO 2033 IF INKEY$="h" THEN PAUSE 2 
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Base de datos 


29899 
2959 
2069 
3999 
3919 
3929 
3039 
4999 
4919 
4929 
5099 
5gig 
5g2g 
6999 


NEXT r 

NEXT c 

RETURN 

INPUT "Columna "jc 

INPUT "Fila "jr 

INPUT asíc,r) 

RETURN 

INPUT "Nombre "5j LINE +% 
LOAD +% DATA añ() 

RETURN 

INPUT "Nombre"; LINE +% 
SAVE + DATA añ () 

RETURN 

INPUT "Cabecera de columna 


"3 LINE cs 


6919 
LINE 
629 
69839 
698499 
HEN 

69859 
HEN 

6Yg6Y 
6879 


INPUT "Cabecera de fila ”; 
rs 

LET ci=9; LET ri=9 

FOR c=1i TO 35 

IF a$ítc,1)f TO LEN c$)=c% T 
LET ci=c 

IF a$(1,c)(í TO LEN rs$)=r% T 
LET ri=c 

NEXT c 

IF ri=9 AND c1i=% THEN PRIN 


T "Fila y Columna ho encontradas 
"; 60 TO 6999 


69889 


IF ri=9 THEN PRINT "Fila n 


o encontrada”: GO TO 6999 


6999 
a no 
6199 


IF ci=%9 THEN PRINT "Column 
encontrada": GO TO 69809 
PRINT FLASH 15"Registro en 


contrado:" 


é6l19 
6129 
6139 
6149 
6159 


PRINT 

PRINT 

PRINT as$(c1,ri) 
PAUSE Y 

RETURN 
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Base de datos 


DPciones 
COSGIGIFICRENO o... «(esa 1 
Ver FiCherOd...o.o.ooossocoso.....2 
Editar ficChefd.o.o. o. soc. ...X)3 
Cargar ficCheTd.ioooooocoo.oanooc..d 
Grabar fiChefQ0..cooo.ooo na. ono... .S 
AA A 
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Fichero 


Este programa reemplaza las fichas por la cinta, con algunas 
ventajas, ya que permite buscar una ficha por su título, 
acelerando así el proceso de la clasificación. El ordenador 
es capaz de encontrar una ficha incluso más rápidamente 
que el mejor de los sistemas de archivo convencionales. 
Una vez haya escrito el programa, ejecútelo, y verá apare- 
cer una ficha en blanco, igual a las mas corrientes en 
cartulina (incluso tiene líneas dibujadas para facilitar su 
lectura). Justo debajo aparece una lista de los comandos 
válidos y al lado, una breve explicación de lo que hacen. 
Los comandos(*) permitidos por el programa son: 


LOAD—Carga fichas previamente grabadas en la cinta. 

SAVE—Almacena las fichas que están en memoria en una 
cinta. 

L—Hace que el ordenador presente la ficha anterior a la 
que está en ese momento en pantalla. 

N—Provoca la aparición de la próxima ficha. 

C—Pide un número y presenta la ficha con ese número. 

COPY—No aparece en la lista. Pero se puede introducir 
igual que los otros, y realiza una copia de la pantalla en 
la impresora. 

INPUT—Permite la introducción de una nueva ficha. 

DEL—Borra la ficha presentada. 

BUSCA—Busca la ficha que tiene el título introducido por 
el usuario. 


19>DIM c$1(109,329) 

15 DIM t+(199,19) 

249 LET c=1 

39 GO SUB 4999 

35 FOR y=168 TO 89 STEP -8 


(*) Al igual que en los demás programas de este libro, estos comandos 
hay que teclearlos con todas sus letras. 
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49 PLOT 9,y: DRAW 255,9 

598 NEXT y 

69 PLOT 9,168: DRAW 9,-88 

78 PLOT 255,168: DRAW 9,-88 

89 OVER 1 

99 PRINT AT 1,9;"Ficha H"3c,”T 
itulo "jt$(tc) 


199 PRINT AT 2,9jc%$(c) 


195 INPUT FLASH 13">"5 
119 IF d$="input” 


1999: 


115 IF d$="del" 


='"". 
Ps . 


cLs 


LET 


: GO TO 39 


129 IF d$="load"” THEN INPUT 


ame ” 


¿ LINE n%: 


3); LOAD n$ DATA ts1) 
139 IF d$="save” THEN INPUT 


ame " 


tos 


NE n$: SAVE n$ DATA cs$(t 


3): SAVE n% DATA t+1) 


149 IF d$="n" THEN LET c=c+1: 


CLS : 


159 IF d$="1” THEN LET ec=c-1: 


CLs : 


GO 


GO 


TO 39 


TO 39 


169 IF d$="c”" THEN INPUT ec: 
S 60 TO 39 


179 IF d="busca” 


20909: 


cLS 


: GO TO 39 


189 IF d$="copy"” THEN COPY 
199 1F dé$="+fin" THEN CLS : 


NT "adios!!!!": STOP 
399 GO TO 195 
1999 REM Input routine 
1919 CLS 
1929 DIM x$(329) 
1939 LET s=9 
1949 FOR a=1 TO 199 
1959 IF céla)=x%$ AND s=9 THEN L 


ET s=a 
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LINE d$ 
THEN GO SUB 


THEN LET có$(c) 
t$ic)="": CLS : GO TO 39 


LOAD n$ DATA cs$(1 


THEN GO SUB 


Fichero 


Fichero 


1969 NEXT a 

1979 IF s=9 THEN PRINT OVER $95 
FLASH 13"Lo siento: El fichero 
esta lleno”: PAUSE 9: RETURN 
1975 LET c=s 

10989 FOR yz=168 TO 89 STEP -8' 
1999 PLOT 9,y: DRAW 255,9 

1199 NEXT y 

1119 PLOT 9,168: DRAW 9Y,-88: PLO 
T 255,168: DRAW Y,-88 

1129 PRINT AT 1,95”"Ficha *"5c,"T 
itulo ” 

1139 LET x=22: LET y=13 GO SUB 1 
599: LET t(c)=iS 

1149 FOR a=1 TO 19 

1159 LET x=9: LET y=1+a: GO SUB 
1599: LET c%$(c, (a-1)X*32+1 TO (a- 
1)*32+LEN 1%$)=i9 

116% NEXT a 

1179 RETURN 

1599 LET is4S="” 

1519 PRINT AT y,xj FLASH 13" *” 
1529 PAUSE Y 

1525 PRINT AT y,xj OVER 9j;"_” 
1539 LET a$=INKEYS 

1599 IF as=CHRS$ 13 THEN RETURN 
1545 IF ab=CHR$ 12 AND x>9 THEN 
LET x=x-1: LET i$S=i%( TO LEN i5 
-1): PRINT AT y,xj OVER 9;3"_": 6 

O TO 1519 

1559 LET i¡i$=i46+2% 

1569 PRINT AT y,xjasS 

1579 LET x=x+1 

1589 IF x>31 THEN RETURN 

1599 GO TO 1519 

2800 LET s=9 

2919 DIM bD$(19) 

2929 INPUT "Busco una ficha con 
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que titulo? "” LINE bs 
2939 FOR a=1 TO 199 
2949 IF tía)=bS$ AND s=9 THEN L 
ET s=a 
2959 NEXT a 
2969 IF s=9 THEN PRINT OVER Y; 
FLASH 1;3"No tengo ninguna ficha 
con este nombre!!'!'! 
": PAUSE M4: RETURN 

2979 LET c=s 

2989 RETURN 

49998 PRINT AT 12,9;"Comandos val 
idos:" 

4919 PRINT "1 - Presenta la +tich 
a "jo-1 

4929 PRINT "n - Presenta la +fich 
a "jotl 

4939 PRINT "c- Pide numero de +i 
cha" 

4949 PRINT "load - Carga fichas 
desde cinta” 

4959 PRINT "save - Graba fichas 
en la cinta" 

4869 PRINT "del - Borra esta tic 
ha” 

49879 PRINT "input - Entrada de n 
ueva ficha” 

4888 PRINT "busca - Busca fichas 
por titulo” 

4999 PRINT "+in - Termina el pro 
grama" 

4199 RETURN 
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Fichero 


Fichero 


: 


ha: 0 3 
Presenta la 
a la fic 
Presenta la Ficha $ 
E e de ficha 
a fichas desde ci 
bt > Faba fichas en la cinta 
7 Borra esta ficha 
Ut —- Entrada de nueva ficha 
Ca - Busca fichas por titulo 
- Termina el programa 
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Gráficos 


Preparar gráficos y diagramas puede ser dificultoso. Este 
programa ha sido diseñado para hacerlo más fácil. Cuando 
ejecute el programa, este le preguntará los datos para los 
gráficos, después de haberlos introducido, parecerá un me- 
nú que le dará opción para producir un gráfico lineal, un 
diagrama de barras o un diagrama de sectores. 
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Gráficos Gráficos 
A a OA NCOS: 


18 PRINT AT 198,18/"Graticas" 289 CLS 
29 PAUSE 59 299 GO SUB VAL as$*x19Y9 
39 CLS 399 CLS 
49 INPUT "Cuantos campos de da 319 GO TO 199 
tos "jn 1999 INPUT "Color "jc 
59 DIM d(n) 1919 INK c 
69 DIM an) i 1929 LET max=9 
29 FOR a=1 TO n 1939 FOR a=1 TO n 
89 INPUT ("Dato humero "jaj" ” 18949 IF día)>»max THEN LET max=d 
Jidía) ta) 
94 NEXT a 1959 NEXT a 
199 CLS 1969 LET vs=175/max 
119 PRINT TAB 19; "Opciones” 1979 LET hs=255/ (n-1) 
129 PRINT : PRINT : PRINT 1989 FOR a=2 TO n 
139 PRINT "Produce un gratico 1 1999 DRAW hs, (día)-d(a-1))Xvs 
ineal......1i” 1199 NEXT a 
149 PRINT 111% PAUSE Y 
159 PRINT "Produce un grafico d 1115 IF INKEYS="c" THEN COPY 
e barras...2"” 1129 INK Y 
16% PRINT 1139 RETURN 
179 PRINT "Produce diagrama de 2999 INPUT "Color "jc 
sectores...3” 2019 INK Cc 
189 PRINT 2929 LET max=9 
199 PRINT "Editar dato5........ 29039 FOR a=1 TO n 
A MN 2949 IF día)>max THEN LET max=d 
299 PRINT ta) 
218 PRINT "Save datOS........0.. 29859 NEXT a 
| A O ES a 2069 LET vs=175/max 
215 PRINT 2079 LET hs=255/n 
229 PRINT "Load datOS.......... 2989 FOR a=1 TO n 
e EN e 2985 FOR b=1 TO hs-1 
239 PRINT : PRINT : PRINT 2098 PLOT (a-1)*hw8+b,2: DRAW 2,d 
249 PRINT  INVERSE 13 FLASH 1;" (a)kvs 
Introduzca la opcion ” 


2995 NEXT b 

2199 NEXT a 

2119 PAUSE Y 

2129 IF INKEYS="c” THEN COPY 
2139 INK Y 


239 PAUSE Y 

269 LET a$=INKEYS 

279 IF a$<"1” OR a$>"6" THEN 6 
O TO 259 
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=== 


Gráficos 
a A A A ÓN AI TARO OE AAC 


RETURN 

INPUT "Color "*;ce 

ÍNK c 

CIRCLE 128,87,87 

LET sum=9 

FOR az=1i TO n 

LET sum=sum+d (a) 

NEXT a 

FOR a=1 TO n 

LET alal=(d(a)/sum)*369 
NEXT a 

LET rotate=9 

FOR a=1 TO n 

LET b=a(a)+rotate 

LET s=SIN (b*P1/1890) 
LET e=xCOS (b*P1/189) 
PLOT 128,87 

DRAW s487,c487 

LET rotate=rotate+ra(a) 
NEXT a 

PAUSE Y 

IF INKEYS$="c" THEN COPY 
INK gy 

RETURN 

FOR a=1 TO n 

PRINT "Dato numero tjaj"="3 


NEXT a 

INPUT "Numero de dato a cam 
sd PO 

INPUT "Nuevo dato ";jd(1) 
RETURN 

DIM n(1) 

LET ntíi)=n 

SAVE "Chart" DATA n() 
SAVE "chart" DATA d() 
RETURN 

DIM n(1) 
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6829 
69839 
6899 
6050 
6869 
6979 


Gráficos 


LOAD "chart" DATA n() 
LET n=n(1) 

DIM din) 

DIM an) 

LOAD "chart” DATA d() 
RETURN 
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Contabilidad casera 


CONTABILIDAD CASERA, es un programa que le permitirá 
llevar un control de los gatos del año. Facilitandole la 
tarea de los cálculos y presentandolo muy claramente en 
grupos de tres meses. Fl programa ha sido diseñado para 
que usted mismo pueda adaptarlo a sus necesidades. 
El programa se adapta cambiando la línea 9000. En ella se 
deben poner los conceptos correspondientes a los gastos 
mas usuales que usted tenga. Solo tiene tres pequeñas 
limitaciones. 

El primero de los datos debe ser el total de entradas que 
en el programa han sido reflejadas en el concepto «saldo», 
los conceptos deben terminar con la palbra «fin» para que 
el ordenador sepa donde terminan y por último tenemos 
que el número máximo de conceptos que aparecerán en 
pantalla es de 20, por lo tanto queda limitado a esa cantidad 
máxima. Un ejemplo de esto lo tiene en la línea 9000 del 
programa. 

Una vez haya ejecutado el programa, el ordenador le pre- 
guntará el mes sobre el que desea trabajar. Entonces apa- 
recerá en pantalla una tabla conteniendo los apuntes, así 
como un cursor «]» que le indica que está esperando un 
comando. Hay cinco comandos válidos, que se pueden 
dar enteros o bien únicamente la primera letra. 


Estos comandos son: 


nuevo mes: Permite cambiar el mes con el que se trabaja. 

copy: Copia lo que hay en pantalla a la impresora. 

input: Este comando pregunta el concepto sobre el cual 
queremos entrar un dato. Usando input también 
se introducen los saldos. El nombre del concepto 
deberá ser como el que puso en la línea 9000. 
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Contabilidad casera 


Load: Carga los apuntes desde cinta. 
Save: Graba los apuntes en cinta. 


. Octubre:Noviemb:Diciemb 


ETE DRAE ROA NE AA ir 
RENT: ESTA a As SO 


Coleazo AMAR 
= [E ENANA Ye 

DER CCA a AA AL SS 
' . . e 


LE RARAS 
mida : : A 


- . . 

ADLEST OT TOA AOS 

Otro ñ 5 ES 
OTAL ó A 3950 


18 PRINT AT 19,7)"Contabilidad 
casera” 
29 PAUSE 39 
39 CLS 
49 DIM a(29,12) 
59 INPUT "Meses(i-12) "im 
68 IF m<x1 OR m>12 THEN GO TO 
5 
79 LET mé="Enero :Febrero:Mar 
ZO :Abril ¿Mayo ¿Junio Jul 
lo ¿Agosto :Septiem:Octubre: Nov 
iemb:Diciemb" 
75 LET bz"; : : 
. 
389 IF m<=3 THEN PRINT TAB 83m 
$( TO 24) 
85 IF m<=6 AND m>3 THEN PRINT 
TAB 8im$(23 TO 48) 
9Y IF m<=9 AND m>ó THEN PRINT 
TAB 8im$(49 TO 72) 
95 IF m>9 THEN PRINT TAB 8;m% 
(23 TO) 
199 RESTORE 
195 LET c=9 
119 READ ss 
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Contabilidad casera 


Contabilidad casera 


115 IF sé="+in"” THEN GO TO 149 

129 PRINT s$;TAB 7;b%: LET c=c+ 
1 

139 GO TO 119 

148 IF m<=3 THEN LET s=1 

143 IF m>3 AND m<=ó THEN LET 5 
=4 

145 IF m>6 AND m<=9 THEN LET 5 
=7 

158 IF m>? THEN LET s=19 

169 FOR a=s TO 5+2 

178 FOR b=1 TO c 

189 PRINT AT b,8+(a-s)X8; 

199 IF atb,a)<>9 THEN PRINT at 
b,a) 

209 NEXT b 

2190 NEXT a 

228 FOR b=1 TO c 

249 PRINT AT b,9j OVER 15" 


269 PRINT AT c+1,28;”"TOTAL" 

279 FOR a=s TO 5+2 

289 LET tza(1,a) 

229 FOR b=2 TO € 

390 LET t=t-2a(b,a) 

319 NEXT b 

3298 PRINT AT c+1,8+(a-5)X9;t 

339 NEXT a 

349 INPUT "]"j LINE cs 

359 IF cb="nuevo mes" OR cfhiz"n" 

THEN CLS : GO TO 59 

335 IF cf="copy" OR cfi="c" THEN 
coPY 

369 IF c$="input” OR cé$="i" THE 

N GO TO 499 

379 1F cé="load" OR c$="1" THEN 

INPUT FLASH 13"?"3j LINE +$+m3 L 
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DAD + DATA at) 

389 IF cé="save" OR cá="s" THEN 

INPUT FLASH 15"?"j LINE +$: S 
AVE +% DATA al) 

399 GO TO 399 

4989 INPUT "Que "5 LINE w% 

419 RESTORE 

429 LET d=9 

439 FOR a=1 TO c 

449 READ s% 

9495 IF LEN wS>LEN s% THEN GO T 
O 9469 

459 IF s6( TO LEN w$)=w8 THEN 
LET d=a 

3969 NEXT a 

479 1F d=% THEN GO TO 499 

9753 PRINT AT d,8+(m-8)8j) OVER 
13 FLASH 15" ” 

489 INPUT FLASH 1;"="3a(d,m) 

999 CLS : GO TO 79 

9388 DATA "Saldo ","Luz”,"Tel.”, 
"Gas", "Colegio”,"Alquil.","Coche 
”,"Ocio","Vestim.","Comida”,"Aho 
rros”,"Imprev.","Otros” 

98198 DATA "fin" 
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Listas de direcciones 


Una de las aplicaciones en la que los ordenadores se 
muestran mas efectivos es en guardar listas de direcciones. 
Una vez se ha introducido la lista de direcciones esta se 
guarda en cinta y luego puede ser recuperada para consul- 
tarla o imprimirla siempre que sea necesario. 

Esto acaba con el problema, que supone tener que enviar 
cartas frecuentemente a las mismas personas de una lista. 
Al ejecutar el programa, aparecerá un menú, con todas las 
opciones posibles. Cada una de ellas tiene un número y 
para seleccionar una no tiene mas que pulsar el número 
correspondiente. 


Las siete opciones posibles son: 


Abrir una dirección nueva: Sólo tiene que escribir la direc- 
ción que desea añadir. La lista puede contener hasta 200 
direcciones. 

Borrar una dirección: Aquí el ordenador pregunta por la 
primera línea de la dirección que desea borrar, y la suprime 
de la lista. > 
Cambiar una dirección: Esto vuelve a preguntar la primera 
línea, pero en lugar de borrarla, le permite cambiarla. 
Ver la lista: Presenta las direcciones por pantalla. 
Imprimir las direcciones: Imprime la lista en la impresora. 
Cargar la lista desde cinta: 

Grabar la lista en cinta: 


19 PRINT AT 19,7;"Lista de Dir 
ecciones" 


29 PAUSE 59 

39 CLS 

49 DIM a$(299,169) 

359 PRINT TAB 19;"Opciones" 
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Listas de direcciones 


69 PRINT 

79 PRINT 

99 PRINT "Abrir direccion nuev 
Deoomo om. ned” 

199 PRINT 

119 PRINT "Borrar una direccion 
e... rl” 

129 PRINT 

139 PRINT "Cambiar una direccio 
Wet aja a SO 

149 PRINT 

159 PRINT "Ver la lista........ 
A o o 

169% PRINT 

179 PRINT "Imprimir las direcci 
OMS... 0...” 

189 PRINT 

199 PRINT "Cargar la lista desd 
e cinta....ó” 

299 PRINT 

219 PRINT "Grabar la lista en c 
intac.o.....7” 

229% PRINT 

239 PRINT 

299 PRINT INVERSE 1j FLASH 13” 
Introduzca la opcion”; 

295 PRINT ""; 

259 PAUSE Y 

268 LET bii=INKEYO 

279 1F b<"1" OR D6>"7" THEN 6 
o TO 259 

289 PRINT bs 

279 PAUSE 199 

399 CLS 

319% GO SUB VAL bS*x1009 

328 CLS ¿ 

339 GO TO 59 
1909 LET pi=9: LET f=9 
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Listas de direcciones 


1918 FOR p=1 TO 298 

1928 IF +$=9 AND atiítp)( TO 32)=" 
0] 

THEN —LET fm=i: LET pi=p 

19398 NEXT p 

1949 1F +28 THEN PRINT "Memoria 

llena": PAUSE £: RETURN 

1959 FOR azi TO 5 

1968 INPUT LINE bs 

1065 PRINT bs 

1979 LET as (pi) (1+(a-1)*32 TO ar 

32)=b$ 

1989 NEXT a 

1999 RETURN 

20998 DIM d$(32) 

2919 INPUT "Primera linea de la 

direccion” LINE ds 

2920 FOR p=1 TO 2909 

20398 1F ab(p)í£ TO 32)=d THEN L 

ET a$(p)=""” 

2999 NEXT p 

2059 RETURN 

3099 DIM d$(32) 

3919 INPUT "Primera linea de la 

direccion"” LINE ds 

39348 FOR p=1 TO 299 

3949 IF a$tp)í TO 32)=d% THEN P 

RINT a$(p): LET pi=p: GO SUB 195 

y 

3959 NEXT p 

3064 RETURN 

4998 FOR p=i TO 2909 

4919 IF a$(p)( TO 32)=" 


O TO 4939 
49293 PRINT as$(p)”” 


28 


Listas de direcciones 


4499 RETURN 
5999 FOR p=1 TO 299 
5919 1F a$(p)( TO 32)=" 


O TO 5949 
5929 LPRINT as$(p) ” 


35939 LPRINT 
5949 NEXT p 
505% RETURN 
6999 LOAD "Direccion” DATA as$() 
6919 RETURN 
7909 SAVE "Direccion" DATA ax() 
7919 RETURN 


Opciones 
Abrir diTeccióon nueva... ....... 1 
Burrar Una die caciones aia nn 2 
Caífmbiar Una difecCiOM.......... 3 
HELTCESALOS Caer arta de aleta ala «Corta di d 
Imprimir las difTeccionmes....... = 
Cargar la lista desde cinta....6 
Grabar la lista em CiMtda....... 7 
otrcauzca La opcion] 
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Matrices 


EL MATRICES es un programa que realiza las operaciones 
de suma resta y multiplicación en matrices de hasta 12x12. 
Una matriz es un grupo de números dispuestos en forma 
de filas y columnas, como una tabla. Para sumar matrices, 
los elementos correspondientes de ambas se suman, y el 
resultado corresponde al mismo elemento de una tercera 
matriz. Una regla similar se aplica a la resta. La multiplica- 
ción sería muy larga de definir, pero es aquí donde el 
programa se muestra mas útil. A título de ejemplo diré 
que para multiplicar dos matrices de 12x12 se requieren 
1728 multiplicaciones y casi otras tantas sumas. 


Cuando ejecute el programa, aparecerán las distintas op- 
ciones, que son: 


Entrar una martriz Primero deberá especificar el nombre 
de la matriz que quiere introducir. Los nombres de las 
matrices consisten en una letra entre la A y la Z. Luego 
introducirá la columna 1, la 2, etc... Para cambiar de colum- 
na pulse N y para terminar pulse E, lo cual le devolvera al 
menú principal. 

Editar una matriz Primero, deberá introducir el nombre 
de la matriz a editar, seguidamente, la fila y la columna 
donde se encuentra el elemento que desea cambiar, y por 
último el nuevo valor de ese elemento. 

Sum./Rest./Multip. matrices Esta opción le permite operar 
con las matrices. Primero se introducen los nombres de 
las dos matrices con las que va a Operar y luego el nombre 
de la matriz donde se va a almacenar el resultado. 

Por ejemplo: Si quiere multiplicar la matriz A por Q ponien- 
do el resultado en R, entonces deberá escribir A (Return) 
Q (Return) M (Return) Luego en el pequeño menú que 
aparece seleccione la opción de multiplicar. Transcurrido 
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un tiempo aperecerá, el menú principal. Si desea ver la 
matriz resultado, utilice la opción «Ver una matriz». 

Grabar una matriz Almacena la matriz en cinta. 

Cargar una matriz Carga una matriz previamente grabada. 
Ver una matriz Esta opción presenta una matriz o parte 
de ella en la pantalla. La pantalla actua como una ventana, 
pulsando la tacla < se mueve la ventana hacia la izquierda, 
y pulsando > se mueve la impresora. Pulsando cualquir 
otra tecla, se vuelve al menú principal. 

Fin Termina el programa. 


Opciones 

Entrar Una MmatfiZ.a..oooo.......1 

i UNa hatlfiZanonooo ooo. .«2 
A MaticCeS....3 
Grabar una ME rra tE 
Cargar una A a 
Ver una ld EE DEN ld golea 
Borrar una a A EA 
Fin del prograldaso...oooonoo»o 


Introduzca la opcion 


Introduzca la opcion 


18 PRINT AT 19,19 FLASH 1¡"Ma 
trices” 

29 PAUSE 59 

39 CLS 

49 PRINT TAB 19;"Opciones” 

59 DIM m(26,13,13) 

69 PRINT 

79 PRINT 

89 PRINT 

99 PRINT 

199 PRINT 

119 PRINT 
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129 PRINT "Entrar una matriz... 
A 

139 PRINT "Editar una matriz... 
AAA A 

149 PRINT "Sum. /Rest./Multip. m 
atrices....3" 

159 PRINT "Grabar una matriz... 
A A a o 

169 PRINT "Cargar una matriz... 
aia aaa Pita 

179 PRINT "Ver una matrizZ...... 
a 

189 PRINT "Borrar una matriz... 
A E 

199 PRINT "Fin del programa.... 
e... .... .. 9” 

299 PRINT 

219 PRINT 

229 PRINT FLASH 13”"Introduzca 
la opcion" 

239 PAUSE Y 

240 LET kS$=INKEYS 

2598 1F k$<"1" OR k$>"8" THEN 6 
O TO 2498 

269 CLS 

2798 GO SUB VAL k$*x1999 

289 CLS 

299 GO TO 99 

399 REM FN Convierte(as) 

319 FOR a=1 TO LEN as5 - 
329 IF abía)>="a" AND afí(a)<a"z 
" THEN LET afta)=CHRS (CODE a( 
a)-32) 

339 NEXT a 

3994 RETURN 


1909 REM Entrada 
1919 INPUT "Entrar que matriz(A- 
Z)"5ms 
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1929 LET afums; GO SUB 399: LET 

mé=ab 

1939 LET a=CODE mb-64 

1049 LET cmi 

1939 LET r=1 

196% CLS 

1979 PRINT "Columna "jc 

1989 PRINT rj: INPUT *" "5ms: PRI 

NT ” "¿ms 

1999 IF m$="N" OR m$="n" THEN  L 

ET r=12: 60 TO 1129 

1199 IF mfz="E"” OR má="e" THEN L 

ET r=12: LET c=12: 60 TO 1129 

1119 LET mí(a,c,r)=VAL ms$ 

1129 LET r=r+1 

1139 IF r<13 THEN GO TO 1989 

1149 LET c=c+1i2 LET r=1 

1159 IF c<13 TREN 60 TO 1969 

117% RETURN 

2908 REM Editar 

290198 INPUT "Gue matriz”"3m% 

28208 LET a$=m$: GO SUB 399: LET 

mé=a$: LET m=CODE m$-64 

293% INPUT "Columna,Fila"jc,r 

29890 INPUT (méj3"("pc5","5r5")="; 

251 

28598 LET mim, c,r)=1 

2960 RETURN 

3099 INPUT "Matriz 1”"ja% 

3919 INPUT "Matriz 2";b% 

392% INPUT "Matriz resultante "; 

c$ 

3939 PRINT "1.Sumar "ja$;" and ” 
¡b$ 

3949 PRINT "2Z.Restar "ja$;3" and 
"3b5 

3059 PRINT "3.Multiplicar "jas;” 
and ";jb% 
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Matrice 
A A EN A E ONES 


386% PRINT 

3979 PRINT 

3989 PRINT FLASH 13" Introd 
uzca la opcion 4 

39998 PAUSE 8: LET d$=INKEYS 

3199 IF d$<"1" OR d$>"3"” THEN 6G 
O TO 3999 

3119 GO SUB 3999+VAL d$Xx2909 

3129 RETURN 

329% GD SUB 399: LET d=CODE as$-6 
4 

3219 LET a$=b$: GO SUB 398: LET 
b=CODE a$-649 

3229 LET aé=cs;: GO SUB 3998: LET 
E=SCODE as$-44 

3238 PRINT "Sumando. ...espere un 
minuto” 

3249 FOR x=1 TO 12 

3259 FOR r=i TO 12 

3269 PRINT AT 19,95 OVER 85"Colu 

mna "5x3" Fila "jr3" ” 

3279 LET M(C¿X P)=M(d,x r)+m(b,x 
sr) 

3289 NEXT r 

3298 NEXT x 

33988 RETURN 

3428 PRINT "Restando... espere u 

n minuto” 


3418 GO SUB 390; LET dCODE as-6 
4 


3429 LET at$=b$: GO SUB 399: LET 
b=CODE ath-69 

3439 LET af=c$: GO SUB 3988: LET 
c=CODE as-649 

34499 FOR x=1 TO 12 

349599 FOR r=1 TO 12 

3468 PRINT AT 10,9; "Columna "5x1 
* Fila "prj" me 
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34798 LET míc,x,r)=mm(d,x,r)-míb,x 
r) 

3489 NEXT r 

3498 NEXT x 

35990 RETURN 

36998 PRINT "Multiplicando...espe 
re un minuto” 

3619 GO SUB 399: LET d=CODE aS-ó 
4 

3629 LET af=b8: GO SUB 399: LET 
b=CODE ati-64 

3639 LET af=c$;: GO SUB 3949: LET 
c=CODE ati-64 

3649 FOR x=i TO 12 

3659 FOR r=i TO 12 

36698 LET 1=9 

3679 FOR n=1 TO 12 

3689 LET s=stm(d,n,r)Xxm(b,x,n) 
3699 NEXT n 

3799 LET mtc,x,r)=5 

3719 PRINT AT 19,9;"Columna "3x3 
"Fila. "irp” ” 

3729 NEXT r 

37398 NEXT x»x 

3749 RETURN 

4998 INPUT "Que matriz grabo "jm 
+ 

4819 LET as=m8$: GO SUB 399: LET 
m$=a $ 

4928 DIM c(i12,12) 

4939 FOR x=1 TO 12 

49498 FOR r=1 TO 12 

49858 LET ctx,r)emí(CODE mb-64,x,r 
) 

48698 NEXT r 

4879 NEXT xy 

40898 SAVE "Matriz"+m% DATA c(1) 
408%8 RETURN 
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5999 DIM c(12,12) 
5918 INPUT "Que matriz cargo "¿¡m 
$ 
39290 LOAD "Matriz"+m8 DATA c() 
5039 FOR x=i TO 12 
5049 FOR r=1 TO 12 
5059 LET m(CODE m$-69,x,Pr)=c1x,r 
) 
396% NEXT r 
5979 NEXT x 
3929 RETURN 
359998 PAUSE 25 
6999 INPUT "Ver que matriz "¡ms 
ó919 LET a$=m%: GO SUB 399: LET 
m=CODE a$-64 
ó6229 LET cz=l 
639 CLS 
62949 FOR r=1 TO 12 
69359 FOR x=c TO c+3 
628698 IF mím,x,r)=8 THEN GO TO é 
g39 
6979 PRINT TAB (x-c)X*5Simím,x,r)5 
62889 NEXT x 
6299 PAUSE 25 
6199 NEXT r 
6119 PAUSE Y 
6129 LET d$=INKEYS 
6139 IF d$="c" THEN COPY : GO T 
O 6839 
6149 IF dt="r" AND c>1 THEN LET 
| c=c-1: 60 TO 6939 
| 6159 IF dhz="t" AND c<19 THEN LE 
T c=c+1: GO TO 6839 
| 6169 RETURN 
| 79089 INPUT "Borrar que matriz *j 
| má 
| 7012 LET as=ms: GO SUB 388: LET 


m=CODE at-64 
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7929 FOR x=1 TO 12: FOR r=1 TO 1 
2: LET mím,x,r)=9: NEXT ri: NEXT 
x: RETURN 

89998 PRINT "Adios!!!!!” 

8919 STOP 
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El programa «AGENDA» le recordará lo que debe hacer en 
cualquier momento de la semana. Trabaja como una agen- 
da muy detallada en la que usted introduce todo lo que va 
a hacer a lo largo de la semana. 


Al ejecutar el programa aparece un menú de opciones que 
son: 


Grabar la agenda en cinta Almacena los apuntes de la 
semana en el casette. 

Cargar la agenda desde cinta Recupera los apuntes de la 
semana. 

Ver/Alterar cualquier día Esta opción le pregunta por el 
día de la semana con el que quiere trabajar. Luego le 
muestra el planning de todo el día y pregunta si quiere 
alterarlo. Si su respuesta es afirmativa, le preguntará por 
la hora que desea alterar, y por último lo que quiere poner 
en ella. 

Terminar Para el programa. 


Opciones 


Grabar la agenda en cinta......1 
Cargar la agenda desde cinta...2 
Versalterar cualquier dia...... 3 
TENIA ea aa a 


Introduzca la opcion 
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Nota: Los días hay que entrarlos en mayúsculas. 


19>PRINT AT 19,11;"Agenda” 

24 PAUSE 5359 

39 CLS 

49 DIM d$(7,19,32) 

59 PRINT TAB 19;"Opciones” 

ó6Y PRINT A 

79 PRINT 

3898 PRINT "Grabar-la agenda en 
Cinta......1” 

85 PRINT 

Y PRINT "Cargar la agenda des 
de cinta...2” 

93 PRINT 

199 PRINT "Ver/alterar cualquie 
r dia......3” 

195 PRINT 

119 PRINT "Terminar ...oo oo so noo 
O 

129 PRINT 

139 PRINT 

1949 PRINT 

159 PRINT FLASH 13"Introduzca 
la opcion” 

169 PAUSE Y 

179 LET a$=INKEYS 

189 IF afic<"1" OR as>"4" THEN 6G 
O TO 169 , 
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199 CLS 

299 GO SUB VAL a$xX*1999 

219 CLS 

2290 GO TO 59 

399 FOR 1=1 TO LEN as 

319 IF as(1)>="a" AND a$(1)<="z 
" THEN.  LET a$(1)=CHR$ (CODE as$( 
1)-32) 

328 NEXT 1 

339 RETURN 

1948 SAVE "Agenda" DATA d4() 
1919 RETURN 

2999 LOAD "Agenda” DATA d5$() 
2919 RETURN 
3999 INPUT "Que dia "¡as 
3919 LET d=8 
3929 GO SUB 399 
3939 IF ab="LUNES” THEN LET d=i 
3999 IF aS="MARTES"” THEN LET d= 
2 
30359 IF ab="MIERCOLES" THEN LET 
d=3 
3069 IF atf="JUEVES" THEN LET d= 
4 
39079 IF afi="VIERNES"” THEN  LET d 
=5 
3989 IF as="SABADO" THEN LET d= 
é 
3098 IF ab="DOMINGO" THEN  LET d 
=7 
3199 IF d=8 THEN PRINT "No se q 
ve dia es ese": GO TO 3099 
3119 INPUT "Lo copio en la impre 
sora? "jp$;: LET a$=p$;: GO SUB 39 
9: LET pk=a$: LET ps=p$(1) 
3129 FOR e=1 TO 19 
3139 RESTORE 8999+ (eX19) 
3149 READ ts 
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3159 PRINT " 


3155 IF p$="S" THEN LPRINT " 


31698 PRINT t$ 

3165 IF p$="S" THEN LPRINT t$ 
3179 PRINT d(d,e) 

3189 IF p$="S" THEN LPRINT détd 
,e) 

3198 NEXT e 

3209 INPUT "Lo altero?";as 

3219 IF a$="" THEN GO TO 3299 
3215 GO SUB 399 

3229 IF a$(1)<>"S" AND a$(1)<>"N 
" THEN PRINT "Como dices?": GO 
TO 3299 

3238 IF ab(1)="N" THEN RETURN 
3249 INPUT "Gue hora? "¡ts 

325% RESTORE : LET 4=9 

3269 FOR e=1 TO 19 

3278 READ s% 

3289 IF sé=ts$ THEN LET +=8e 
3290 NEXT e 

3309 1F +=9 THEN PRINT "Que?": 
GO TO 3248 

331% INPUT (d$(d,+))jd$(d,) 
332% PRINT "YA ESTA HECHO” 

3339 GO TO 3998 

4098 PRINT "Adios!!!!!": STOP 
9899 DATA "9.99" 

99818 DATA "9.39" 

929 DATA "19.99" 

9039 DATA "19.39" 

9249 DATA "11.90" 

90859 DATA "11.39" 

969 DATA "12.99" 

9078 DATA "12.39" 

9989 DATA "13.99" 


41 


Agenda 


a e | Calendario 


9139 DATA "15.39" / Í 

9148 DATA "16.99" Este es un programa para los que no saben en que día 

9158 DATA "16.39" viven, o para aquellos que... ¡quieren saber en que caía el 
día de Navidad de 1903! También puede ser útil para gente 


como los viajantes ya que les permite tener un calendario 
en la pantalla. 


El programa es muy fácil de usar, pues sólo tiene que 
decirle al ordenador el año que desee, y el calendario de 
ese año aparecerá en pantalla. Para pararlo pulse H y así 
podrá ver el mes que quiera. 


i2>INPUT "Anyo 19")y 

29 LET d=1 

39 FOR a=1991 TO 1999+y-1 

49 IF a/4=1INT (a/4) AND a/1999 
<>INT (82/1998) THEN LET d=d+366 
: GO TO 69 

59 LET d=d+365 

69 NEXT a 

79 REM d es el numero de dias 
desde el 1 de Enero de 1999 

89 LET e=d-27X*INT (d/7) 

199 FOR m=1 TO 12 

119 READ ms, 1 

115 IF y/4=INT (y/49) AND m$="Fe 
brero" THEN LET 1=29 

129 PRINT TAB 19jmB5" "j¡1998+y 

1390 PRINTAN 

149 PRINT "Lun Mar Mie Jue Vie 
Sab Dom" 

LORRAINE AS O 
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Calendario 
CH GAN AI DAA IIA AA ISO IO ADS 


169 FOR az1 TO 1 J Enero 1984 
165 POKE 23692,2535 ¡ un Mar Mie Jue Vie Sa Om 
166 IF INKEYS="h" THEN PAUSE Y 


178 PRINT TAB ex4ja; S do l1 de la la ls 
189 LET exe+1 53 34 ¿38 de 57 23 28 
199 IF e=7 THEN LET exg HA. 2d 

208 NEXT a 

205 PRINT 

2 ANUN a A Febrero 1984 
pe IAE > Gual on Mar Mie Jue Jie 3a 17 
229 PRINT : PRINT : PRINT A PI 
239 NEXT m Ya 1d da de a casona 
299 STOP => e HE 23 24 25 265 
259 DATA "Enero",31 

269 DATA "Febrero”,28 

279 DATA "Marzo”",31 

289 DATA "Abril",39 Marzo 1934 

298 DATA "Mayo",31 un Mar Mie Jue Vie Sa 7 
399 DATA "Junio",30 O E a AA 
319 DATA "Julio",31 Ta ls ls ls le 19 13 
329 DATA "Agosto",31 38 589 £3 58 53 51 * 
339 DATA "Septiembre",30 

349 DATA "Octubre",31 

359 DATA "Noviembre”",39 

368 DATA "Diciembre”,J31 A 
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un ar 1€ Jue Vie Sab bom 


E 3 d 5 = Ea 3 
3 10 11 12 13 14 15 
16 7 13 13 a 21 22 
23 24 25 26 27 28 239 
e 
Mayo 1934 

cun ar 1€ uE 1€ 53 of 

ja E 3 EN 5 5 
7 3 5 10 11 12 13 
14. 1% 165 17 13 19 20 
21 22 E 24 25 26 27 
28 22 SA 32 
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Junio 198594 


un ar 1€ ue 1€ a Ol 
A NOSE NEUE = 7 E RAIN] 
db 0 
11 "18 043 ¿de rise 1? 

18 19 29 21 22 23 24 
28 25 087 02s 129 30 
Jutio 1984 

un ar 1€ e 1€ Sa (17 

o TO RL EA CA 
O SO ER O 

Sucia nie ns a As 

16 17 18 19 ¿0 31.22 

2384 DA iNaS 026 1127 268 ¿89 

Se 31 


6 7? ES] 3 i2 dv pla 
13 id 15 15 17 13 139 
24 21 22 23 24 25 26 
2711 2901129) 000 EOL 


EE 

Ma e Ao E Mr 

lo Í1 e iia dae 
19 11 de ¿2 14 158 18 
dá 3 ee? 26 eo: 00 
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electrónicos 


Este programa le permite dibujar y alterar circuitos electró- 
nicos muy fácilmente. Los circuitos se preparan en la pan- 
talla y usted los altera a su gusto. 

Ya se puede olvidar de las plantillas. 

Cuando ejecute el programa aparecerá un cursor cente- 
lleante en la esquina superior izquierda de la pantalla. Pul- 
sando una tecla, se imprimirá el carácter correspondiente 
como si de un procesador de textos se tratara. Si pulsa * 
y luego un número seguido por la tecla ENTER entonces 
aparecerá un símbolo electrónico. Los números y sus sím- 
bolos asociados los encontrará más adelante. Si pulsa $ 
entonces la pantalla entera se copia en la impresora. 
Para moverse por la pantalla puede utilizar las teclas con 
cuatro direcciones. 


19>REM Diodos 
29 DATA BIN 199919998 
39 DATA BIN 11991999 
49 DATA BIN 19191999 
59 DATA BIN 19911111 
68 DATA BIN 19191999 
79 DATA BIN 11981999 
89 DATA BIN 198891999 
9% DATA Y 

199 REM 

1198 DATA BIN 298199891 
129 DATA BIN 99919911 
139 DATA BIN 99B1B191 
149 DATA BIN 11111991 
159 DATA BIN 99819191 
169 DATA BIN 99819011 
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179 
13289 
199 
209 
219 
229 
239 
249 
259 
269 
279 
239 
299 
399 
sig 
329 
339 
399 
359 
369 
379 
389 
399 
499 
419 
429 
439 
499 
459 
469 
479 


489 
499 
599 
sig 
529 
539 


DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BIN 940919991 


g 


BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 


BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 


VIVIDOS 
148810 
12010989 
11111119 
YIILIIGS 
gu1ig1gya 
g199U1y9 
l1i11119 


lit1i1iig 
V1IVI1GO 
9U1D1DIG 
89U10UIY 
11111119 
1008190099 
8881 UUUD 
YI81UIUD 


REM Lineas 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 


BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 


28,9,9,BIN 11111111,9,9 


83919999 
9981999 
8UI19989 
YUVULVVDY 
88819908 
280919099 
190981900 
99919098 


REM Esquinas 


DATA 
DATA 
DATA 
DATA 
DATA 


BIN 99919999 
BIN 99919999 
BIN 99919999 
BIN 11119999 
9,9,9,9 
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599 
3559 


5óg 
5790 
3589 
590 
6u9y 
619 
629 
639 
649 
659 
669 
679 
680 
699 
790 
719 
729 
2739 
7499 
759 
769 
270 
780 
790 
390 
s19 
3829 
839 
849 
359 
3869 
879 
389 
899 
9909 
919 


REM 
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DATA 


DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BIN 9481ISUB 


BIN 249919999 
BIN 99819909 
BIN 994411111 
9,9,9,9 


g,0,9 
BIN 11119998 
BIN 20819999 
BIN 99919999 
BIN 98919999 
BIN 90919999 


2,9,9 
BIN 99911111 
BIN 80819999 
BIN 99919999 
BIN 90819989 
BIN 99919999 


REM Resistencias 


DATA 
DATA 
DATA 


DATA: 


DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BIN 90819099 
BIN 99191999 
BIN 91991999 
BIN 19999191 
BIN 98090191 
BIN 99999919 
2,9 


BIN 9991999 
BIN 99199999 
BIN 9199UYIS 
BIN 908199999 


BIN 
BIN 
BIN 
BIN 


VIBLIVIR 
gUII1UDS 
VUBIBID 
9190919099 


REM Uniones 
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929 
939 
249 
959 
969 
979 
989 
999 
1999 
1919 
1920 
1939 
1949 
19598 
1969 
1079 


1989 
1999 
1199 
1119 
1129 
1139 
1199 
1159 
1169 
1179 
1189 
1199 
1299 
1219 
12298 
1239 
1249 
1259 
1269 
1270 
1289 
1599 


DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BIN 
2IN 
BIN 


BIN 11111111,9,9,9,9 


9,90,9,BIN 11111111 


BIN 
BIN 
BIN 
BIN 


BIN 
BIN 
BIN 
BIN 
BIN 


BIN 
BIN 
BIN 


BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 


YgIB1D0UGD 
gUIV1IDDG 
gUD1VIDD 


9II109YY 
BUIDLIVID 
SUULDIIDO 
VIAL 


DUIB1LIDDG 
SID1DDID 
vIB1UIUUN 
11119999 
SIILVIDG 


SUB1DIDG 
SI11 UU 
1991999 


gI01IUUU 
9UB1UUUG 
BUB1IDID 
Sang1i111 
99919999 
99919999 
YU81D00IYY 
1IB1DIDDD 


REM Omega 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
g 


99311999 
g1190119 
19999991 
190IUUD 1 
919099919 
11108190 
11199111 


FOR a=1 TO 12 
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1519 FOR b=98 TO 7? 

15240 READ c 

1538 POKE USR CHR$ (143+a)+b,c 

1549 NEXT b 

1558 NEXT a 

1560 LET x=9 

1578 LET y=9 

1589 DIM s$(32,22) 

1599 PRINT AT y,x3 FLASH 1;35$(x+ 
1,y+1) 

169890 PAUSE Y 

1619 LET a$=INKEYS 

1615 BEEP .1,39 

1629 PRINT AT y,xjs$(x+1,y+1) 
1630 IF a$="*" THEN INPUT a: 1F 
ati OR a»1? THEN BEEP .1,9: GO 
TO 1639 

1635 IF a$="*" THEN LET a$=CHRs 
(143+28) 

16499 IF a$="0"OR (a$>=CHR$ 8 AN 

D a$<=CHR$ 12) THEN GO SUB 1699 
: GO TO 1599 

1692 IF a$=CHR$ 13 THEN LET x=3 

1: GO TO 1669 

1645 LET s$(x+1,y+1)=a%$ 

1646 PRINT AT y,xjas$ 

1659 LET x=x+1 

1669 IF x=31 THEN LET y=y+1: LE 

T x=9 

1679 IF y=22 THEN LET y=9: LET 

x=9 

1689 GO TO 15998 

1699 IF a$=CHR$ 8 AND x<>9 THEN 
LET x=x-1: RETURN 

1799 IF a$=CHR$ 9 AND x<>31 THEN 


LET x=x+1: RETURN 
1719 IF a$=CHR$ 19 AND y<>21 THE 


N LET y=y+1: RETURN 
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1729 IF a$=CHRS$ 11 AND y<>geTHEN NUMERO 
LET y=y-1: RETURN NUMERO 
1739 IF a$=CHR*$ 12 AND x<>9 THEN NUMERO 
LET x=x-1: LET s$(x+1,y+1)="": NUMERO 
RETURN NUMERO 
1749 IF a$>=CHR*$ 8 AND a$<=CHRs NUMERO 


12 THEN BEEP 
1759 INPUT LINE as 


1755 IF LEN as$<9 THEN GO TO 178 


Lo) 


1737 IF a$="copy" 
1769 IF a*$+( TO 4)="1lo0ad” 
DATA stb(): 


OAD at(5 TO ) 


12899: 


1779 IF a$( TO 9)="save” 
DATA s$(): 


RETURN 


AVE a$(5 TO ) 


1730 
1799 
1299 
1819 
1829 
1839 
1849 
1845 
1859 


NUMERO 
NUMERO 
NUMERO 
NUMERO 
NUMERO 
NUMERO 
NUMERO 
NUMERO 
NUMERO 


BEEP .1,9 
RETURN 

FOR x=9 T 
FOR y=9 T 


PRINT AT y, xis$1x+1,y+1) 


NEXT y 
NEXT x 
LET x=9: 
RETURN 


00 J¿00PQ0.E 
1 
1 
w 


NUMERO 10 --> 
NUMERO 11 --> 


«1,9: RETURN 


o 31 
o 21 


LET y=9 


SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 


SIMBOLO 


SIMBOLO 
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THEN COPY 


THEN L 
GO SUB 


THEN Ss 
RETURN 


12 
13 
14 
15 
16 
17 


--> 
--> 
--> 
--> 
--> 
--> 


Diseño de circuitos electrónicos 


SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 
SIMBOLO 


1.RESISTENCIAS 


a)jParalelo 


300 s 


300 s 
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Hoja de cálculo 


«HOJA DE CÁLCULO», es un típico programa de los llama- 
dos hojas electrónicas, que se pueden usar para multitud 
de aplicaciones. 

Imagine un trozo de papel dividido en celdillas rectangula- 
res. Cada una de estas celdas puede contener una palabra, 
un ejemplo, o una fórmula que puede estar en función de 
otras celdas. Por ejemplo, una fórmula puede estar en la 
celda (3,2) y decir algo así: celda (1,1)*celda(1,2)/100. Está 
claro que el valor que haya en la celda (3,2) cambiará si 
alteramos los valores de (1,1) o de (1,2). 

Cuando ejecute el programa, aparecerán en pantalla algu- 
nas celdas en blanco. La pantalla actúa como una ventana 
ya que es imposible mostrar a la vez, los cientos de celdas 
existentes. Hay 10 comandos que se pueden usar, introdu- 
ciéndolos en la parte alta de la pantalla. Son: 


Input. Después de teclearlo aparece la pregunta «Dónde?» 
ala que debemos contestar con un nombre de celda 
en la forma «columna, fila» como por ejemplo 5,7 
luego teclee el contenido de la celda. En caso de 
que sea una fórmula escriba «f » y aparecerá la 
pregunta «Fórmula?», luego introduzca la fórmula. 
Para hacer referencia (*) a una celda tal como (9,3) 
deberá escribir VAL S$(9,3). 

Save Graba todas las celdas en cinta 

Load Carga todas las celdas desde la cinta 

Print Copia la pantalla y la impresora 

Borra Borra todas las celdas 

Fin Termina el programa 


Para ahorrar tiempo se puede escribir sólo la primera letra 
de los comandos, aunque todos deberán estar escri- 
tos en minúsculas. 
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N.T. Dado que para los cálculos de fórmulas se usa la 
función VAL, y el Stack no puede ampliarse mucho 
debido al gran tamaño de la variable S$, no es 
aconsejable usar fórmulas que hagan referencia a 
más de 2 o 3 celdas puesto que se puede producir 
un error «4 Out of memory». Para subsanarlo en 
parte podemos reducir el tamaño de S$ en la línea 
60 aunque con ello se reduce el número de celdas 
disponibles. 


1089 REM Hoja de calculo 

29 PRINT AT 18,7;"Hoja de calc 
ulo" 

39 FAUSE 59 

406 CLS 

698 DIM s$(29,29,32) 

89 LET x=1 

998 LET y=1 

199 GO SUB 159 

119 GO SUB 429 

139 GO SUB 3599 

199 GO TO 119 

159 CLS 

169 FOR v=x TO x+2 

1798 PRINT AT 2, (v-x)X38+55v 

189 NEXT y 

199 FOR v=y TO y+18 

299 PRINT AT v-y+3,B8jv 

219 NEXT y 

228 FOR v=x TO x+2 

239 FOR w=y TO y+18 

299 IF s$(v,w)=" 

”" THEN GO TO 2 

79 

259 PRINT AT w-y+3, (v-x)+8+55 

255 LET q=1 

269 IF s$(v,w,1)=" " OR (CODE s 
$(v,w,1)>47 AND CODE s$(v,w,1)<5 
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8) THEN LET q=9 
265 1F q=1 THEN PRINT s%6(v,w) ( 
TO 8) 
267 1F q=8 THEN PRINT VAL (5%( 
V¿W)) 
279 NEXT w 
289 NEXT y 
299 RETURN 
929 REM Lectura del comando 
439 PRINT AT 1,93” 
"587 1,95 
949 LET is$="" 
4359 GO SUB 519 
469 IF gé=CHR$ 12 THEN LET 1%= 
i$( TO LEN i$-1) 
465 IF g=CHR*$ 12 THEN LET g%$= 
466 IF gé=CHR% 13 THEN RETURN 
467 PRINT 9%; 
479% LET ¡$S=1%+g% 
599 GO TO 459 
519 REM Lee tecla 
329 PAUSE Y 
539 LET gé=INKEYS 
549 RETURN 
3599 REM Interpreta Comando 
699 1F i$="input" OR is$="i" THE 
N GO SUB 799 
ól9 IF i$="save” OR i$="s" THEN 
GO SUB 1979 
628 IF i$="load” OR í%="1" THEN 
GO SUB 1199 
639 IF i$="print" OR ií$="p" THE 
N GO SUB 1159 
649 IF is="borra" THEN RUN 
659 IF i$="fin" THEN CLS 
669 IF i$="+$in” THEN PRINT "By 
e-Bye" 
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679 
680 
799 
719 
729 
739 
7499 
759 
769 
278 
789 
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IF is="fin" THEN STOP 
RETURN 

REM input 

PRINT AT 9,9; "Donde?" 
GO SUB 429 

PRINT AT 9,9;" » 

GO SUB 949 

IF p=9 THEN GO TO 799 
LET a=VAL i$( TO p-1) 
LET b=VAL is(p+i TO ) 
IF ax1 OR a>39 OR bl OR b> 


49 THEN 60 TO 799 


790 
2399 
819 
3829 
3839 
3849 
3859 
399 
295 
999 
919 
920 
930 
949 
958 
968 
979 
989 


LET x=2a-2 

LET y=b-19 

IF x<1 THEN LET x=1 

1F x>28 THEN LET x=28 

IF y<1 THEN LET y=1 

IF y>38 THEN LET x=38 

GO SUB 159 

PRINT AT 94,9;"Que?" 

GO SUB 429 

IF i$=""" THEN GO SUB 1929 
LET st(a,b)=i% 

GO SUB 159 

RETURN 

REM INSTR$(1%$,",") 

LET p=9 

LET p=p+1 

LET p*$=is$(p) 

IF ps$<>"," AND p<>LEN 1% TH 


EN GO TO 969 


999 
19909 
1929 
1939 
1949 
1959 
1960 


IF p=LEN is THEN LET p=982 
RETURN 

REM Formula 

PRINT AT 9,9;”"Formula?” 
INPUT is 

LET i$=" "+i% 

RETURN 
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1979 PRINT AT 9,9;"Nombre del +i 
chero?" 

1939 GO SUB 429 

1099 SAVE 1% DATA s$() 

19975 RETURN 

1199 PRINT AT 9,9;"Nombre del +1 
chero?" 

1119 GO SUB 429 

1129 LOAD i$ DATA s$() 

1139 RETURN 

1159 PRINT AT 9,9;" 


1169 PRINT AT 1,93" 


Control de Stocks 


El programa de CONTROL DE STOCKS, ayudará a llevar 
los stocks de aquellos negocios que tengan menos de 300 
artículos, listando los artículos que están por debajo del 
mínimo así como sus proveeedores. 

Cuando ejecute el programa tendrá que entrar las fichas 
de los artículos. Esto se hace seleccionando la opción 7 
del menú y pulsando la tecla ENTER cuando el programa 
nos pregunta «Producto:». Una vez hecho esto, el progra- 
ma le preguntará el nombre del producto, el stock mínimo, 
los proveedores y el stock actual. 

Este proceso, se deberá repetir hasta que haya introducido 
todos los artículos, entonces ya podrá usar las otras opcio- 
nes del menú: 


1179 COPY 
1134 RETURN 


Cargar stocks desde cinta. 
Grabar stocks en cinta. 


Listado de stocks Esta opción lista todos los artículos y 
su stock, mostrando en modo FLASH, aquellos que están 
por debajo del mínimo. 

Listado de sotcks bajo mínimo Produce un listado de los 
artículos cuyo stock está por debajo del mínimo. Puede 
salir por pantalla o por impresora. 

Cambiar datos de un producto Esta opción permite variar 
datos de la ficha de un artículo. Primero pregunta el nom- 
bre del producto y luego por los nuevos datos de la ficha. 
Si se pulsa ENTER como respuesta a alguna de las pregun- 
tas el programa da por supuesto que se mantiene el dato 
anterior. 

Entrada de ventas Aquí es donde se introducen las ventas, 
primero pregunta el nombre del producto y luego el núme- 
ro de unidades vendidas. 
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19 PRINT AT 19,7;"Control de S 


tocks"” 


298 DIM s$(399,5,20) 


394 PAUSE 59 

48 CLS 

59 PRINT TAB 19;" 

648 PRINT 

24 PRINT "Cargar 
A pan 


28 PRINT "Grabar 
ainia a aa a 

109€ PRINT 

119 PRINT "Listado 


ae 


129 PRINT 

139 PRINT "Listado 
jo minimo..4" 

149 PRINT 

159 PRINT "Cambiar 
producto...5" 

169 PRINT 

17% PRINT "Entrada 
O 

139 PRINT 

189 PRINT "Entrada 
oductos....?7” 

1232 PRINT 

199 PRINT "Fin del 
a IIS a” 

289 PRINT 


Opciones” 


stock desde € 


stock a cinta 


de stocks... 


de stocks ba 


datos de un 


de ventas... 


de nuevos pr 


programa.... 


2198 PRINT FLASH 1;" Introd 


uzca la opcion 
220 PAUSE Y 
230 LET as=INKEYS 


” 


248 IF aé$<"1" OR as$>"8"” THEN 6G 


O TO 229 
254 CLS 


60 


269 GO SUB VAL a*Xx1ggd0 

278 GO TO 49 

1999 LOAD "stock" DATA s*1() 

1919 RETURN 

2809 SAVE "stock" DATA s%() 

2019 RETURN 

348 FOR a=1 TO 309 

3018 1F s$la,1,1)=" " THEN GO T 
O 3199 

3429 CLS 

39340 PRINT "Producto:";5s$(a,l) 
3049 PRINT "Codigo:"jis$tla,z) 
20598 PRINT "Proveedor:"istla,3) 
36% PRINT "Stock minimo:"3stéía, 
4) 

306653 IF VAL s$(a,5)<VAL sta, 4) 
TREN. LET flash=1 

3968 IF VAL s$(a.5)>VAL s$(a, 4) 
THEN LET flash=8 

3079 PRINT FLASH f+flash;"Stock a 
ctual:";3 FLASH S6;s$(a,5) 

30398 FAUSE Y 

30498 LET +lash=9 

310% NEXT a 

3110 RETURN 

4908 FOR a=1 TO 399 

4845 1F s$(a,1,1)=" " THEN GO T 
O 341399 

48190 IF VAL s$ía,3)>VAL s$la, 4) 
THEN G0 TO 41499 

43420 PRINT "Producto!:";s$síta,l) 
4939 LPRINT "Producto:”";jstlía,l) 
4848 PRINT “Codigo:"jstla,Z) 
4058 LPRINT "Codigo:";¡stla,2) 
4360 PRINT "Proveedor:"¡st(a,s5) 
408798 LPRINT "Proveedor: "jst(a,3) 
44889 PRINT "Stock minimo:”"jstía,4) 
499% LPRINT "Stock minimo:";is$ta,4) 
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4199 PRINT "Stock actual:";s$(a, 


4119 LPRINT "Stock actual:"js$(a 


4159 RETURN 

5919 INPUT "Producto "; LINE as 

5920 LET d=9 

5839 FOR a=1 TO 3998 

59499 IF s$(a,l)=a% AND d=9 THEN 
LET d=a 

305% NEXT a 

35969 IF d=9 THEN GO TO 5819 

50é5 LET a=d 

5479 PRINT "Producto:"jstía, 1) 

5689 PRINT "Codigo!"jst(a, 2) 

5098 PRINT "*Froveedor:"js$s(a, 3) 

3190 PRINT "stock minimo";s$(a,4 


3110 1F s$(a,1,1)<>"” " THEN 1F 

VAL s$(a,5)<VAL s$ía,4) THEN FL 
ASH 1 

5129 PRINT "Stock actual";¡s$(a,5 
) 

35130 FLASH Y 


514% INPUT "Nuevo producto::"3 L 
INE as 
3159 IF a$="" THEM  LET ab=s$(a, 


1) 

5109 LE? sb(a,l)=as 

5179 INPUT "Nuevo codigo:”; LINE 
as$ / 

5189 IF a$="” THEN LET aé=s$(a, 


5) 
«e 
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5199 LET s$(a,2)=a% 

52998 INPUT "Nuevo proveedor:”3 L 
INE as 

5219 IF a$="" THEN LET as=<$(a, 
3) 

5229 LET s$(a,3)=9a% 

5239 INPUT "Nuevo stock minimo:” 
3 LINE as 

52490 1F a$="" THEN LET at=s$(a, 
4) 

5259 LET s$t(a, 4)=a% 

5269 INPUT "Nuevo stock actual:” 
5 LINE as 

5279 1F a$="" THEN LET as=st(a, 
5) 

5289 LET st(a,5)=a% 

52749 RETURN 

60884 DIM a$(290) 

ég13 INPUT "Producto "; LINE a$ 
682% LET d=9 

6049 FOR a=1 TO 394 

698598 IF s$í(a,l)=a$ THEN LET d=a 
$464 NEXT a 

é865 IF d=98 THEN GO TO 6919 
ód66 LET a=d 

£979 PRINT "Cantidad que queda!” 


¡s$bla,5) 

£888 INPUT "Numero de unidades yv 
endidas "3 

5898 LET s$(a,5)=STR$ (VAL s$la, 
DN) 


61984 RETURN 

7999 REM Entrada nuevos producto 
s 

7014 LET d=9 

7082 DIM as$(29) 

7659 FOR a=1 TO 399 

7888 1F s$tla,i)=a$% AND d=9 THEN 
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LET d=a 

78790 NEXT a 

70889 IF d=94 THEN PRINT  INVERSE 
1ij3"Fichero lleno": PAUSE 9: RET 

URN 

7890 LET a=d 

7199 GO SUB 5149 

7299 RETURN 
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Listado de teléfonos 


Este programa es capaz de almacenar los números de 
teléfono de hasta 100 personas. Simplemente hay que escri- 
bir el nombre, y el número de teléfono, aparecerá en 
pantalla. 


Funciona con un menú muy fácil de usar: 


1. Entrar un nuevo teléfono Esto le pregunta por el nom- 
bre y el número, y los almacena en la memoria. 

2. Borrar un teléfono Esta opción le pregunta por el núme- 
ro a borrar, y lo suprime de la lista. 

3. Buscar un teléfono Dando el nombre de una persona, 
aparecerá su teléfono en pantalla. 

4. Cargar lista desde cinta. 

5. Grabar la lista en cinta 

6. Listar todos los teléfonos Proporciona una lista de to- 
dos los teléfonos, por pantalla o impresora. 

7. Fin Detiene el programa. 


Opciones 


Entrar Un nuevo telefonO:......1 
Borrar un telefomMOD...o.o o. son. «2 
Buscar Un telefonO.............3 
Cargar lista desde CiMtad.......4 
Grabar la lista en Ciftlas.sn.....5 
Listar todos los telefonoS.....6 


FiDonccsosasososos. sn o2...... ... 7 


Introduzca la opcion 
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Nombre Numero 


Francesc Alaved 789.249.813 


Marta Pi Albert 237.62. 44 


Lali Curriol 211.38.19 


19 FRINT AT 10,7/"Liíista de tel 
efonos" 

29 PAUSE 59 

39 CLS 

99 DIM t$(199,2,15) 

59 PRINT TAB 19;3"Opciones" 

68 PRINT 

74 PRINT "Entrar un nuevo tele 
OE aja ata iD 

898 PRINT 

99 PRINT "Borrar un teletforno.. 
AA 2 

199 PRINT 

119 PRINT "Buscar un teletfono.. 
ar pa 

129 PRINT 

139 PRINT "Cargar lista desde c 
A 

149 PRINT 

159 PRINT "Grabar la lista en c 
intasi.r 5... 5* 

169 PRINT 

179 PRINT "Listar todos los tel 
efonoS.....6” 

189 PRINT 

A O A O AS 


nos." 
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299 PRINT 

218 PRINT FLASH 13"Introduzca 
la opcion” 

229 PAUSE Y 

239 LET $=INKEYS 

299 IF k$<"1" OR k$5>"7” THEN 6G 
o TO 229 

245 CLS 

259 1F k$="1" THEN GO SUB 1999 
269 1F k$="2" THEN 60 SUB 2999 
270 IF k$="3" THEN GO SUB 3999 
289 IF k$="9" THEN LOAD "Tele+ 
onos” DATA t%() 

298 1F k$="5" THEN SAVE "Tele+ 
onos” DATA t%() 

309 1F k$="6" THEN GO SUB 4999 
319 IF k$="2?" THEN FPRINT "Adio 
SIS TOA 

328 CLS : GO TO 59 

1999 LET p=1: LET £+=9 

18919 1F tStip,l,i)=" " THEM LET 
+t=p! LET p=190 

1820 LET p=p+1 

1939 I1F px9181 THEN (GO TO 19198 
1999 IF +$=9 THEN PRINT "Memoria 
llena....pulse una tecla": PAUS 
E ; RETURN 

19859 INPUT "Nombre "3 LIME tH$(*, 
1) 

1968 INPUT "Numero "3 LINE tH$(+*, 
2) 

1979 RETURN 


22888 INPUT "Nombre a borrar de 1 
a lista"j LIME n% 

2810 LET s=9 

2920 FOR a=1 TO 199 

29398 1F t$ta,1)í TO LEN n$)=n%$ A 
ND s=98 THEN LET s=a 
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2099 NEXT a 

2058 1F s=98 THEN PRINT "No encu 

entro «ste nombre..": GO TO 2999 

22€9 LET t$ís,1)="": LET t$(5,2) 

- "” 

2079 RETURN 

308% INPUT "Nombre "5 LINE ns 

3019 LET s=9 

30248 FOR a=1 TO 199 

3939 IF t$(a,1)( TO LEN n$)=n$ A 

ND s=9 THEN LET s=a 

3099 NEXT a 

3995 1F s=9 THEN PRINT "No encu 

entro este nombre..”: GO TO 3999 

3958 PRINT "Nombre "jt%(s,1) 

3968 PRINT "Numero ";t$(5,2) 

35874 PRINT : PRINT "Pulse una te 

cia": PAUSE 9: RETURN 

49998 INPUT "Listo por impresora? 
"3 LINE ps 

4919 PRINT "Nombre";TAB 298; "Nume 

ro" 

9929 IF p*$t1)="s"” OR p$t1)="S" T 

HEN  LPRINT "Nombre";TAB 298; "Num 

ero” 

4039 PRINT 

9948 IF ps$(1)="s"” OR p$(1)="S" T 

HEN  LPRINT 

4959 FOR p=1 TO 199 

48628 IF t$(íp,1,1)=" " THEN 60 T 

O 34119 

99798 PRINT t$(p,1);3TAB 285t$(p,2 

) 

4989 IF p$r1)="s" OR ps$(1)="s" T 

HEN LPRINT t$(p,1);TAB 1i5;t$(p, 

2) 

3999 PRINT ” 
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4199 IF ps(i)="s" 
HEN —LPRINT " 


4119 NEXT p 


4129 PRINT 


USE Y: 


RETURN 
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OR ps(1)="S” 


"Pulse una tecla”: 


T 


PA 


Wordscreen (Proceso de 
textos) 


Este libro, se ha preparado, usando WORDSCREEN, que 
es un programa de procesador de textos. Con WORDS- 
CREEN, se pueden preparar documentos de una forma 
rápida y fácil. Todos los documentos se pueden guardar 
en casette para usarlos posteriormente. 

Cuando ejecute el programa aparecerá un cursor parpa- 
deante. En este momento ya se puede introducir la prime- 
ra línea del documento que deberá terminarse pulsando 
ENTER. Si una de las líneas empieza con «*» lo que viene 
a continuación se interpretará como un comando, no como 
una línea de texto. 


Wordscreen dispone de 15 comandos: 


* impre Este comando imprime el documento que está en 
memoria. 

* carga Carga un documento desde la cinta. 

* graba Graba en la cinta el documento que está en 
memoria. 

* fin Detiene el programa. 

* inserta Permite insertar una línea entre otras dos que ya 
han sido introducidas. El programa pregunta después de 
que línea quiere insertar, y seguidamente el texto a 
insertar. 

* centra Centra la última línea escrita. 

* borra Suprime el documento que está en memoria. 

* audio Produce un pitido agudo, cada vez que se pulsa 
una tecla. Muy adecuado para aquellos que no dominen el 
teclado. 
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* silencio Suprime el pitido activado por *audio. 

* reemplaza Reemplaza una palabra o una frase por otra. 
Primero pregunta por la palabra a reemplazar y luego por 
la que la sustituye. 

* margen Pregunta cuanto margen queremos dejar en el 
lado izquierdo. 

* dirección Esto coloca la dirección en la parte de arriba 
de una carta. Previamente deberá escribir la dirección en 
las líneas 1120-1150 del programa. 

* edita Permite cambiar cualquier línea del documento. En 
primer lugar pregunta el número de línea a cambiar y 
luego la versión correcta de esa línea. 

* ver Muestra el documento en pantalla, con las líneas 
numeradas. 


Í0 PRINT AT 19,190; "Wordscreen" 
20 PAUSE 59 : 

38 CLS 

39 DIM ws$(199,32) 

45 DIM a(1) 

59 LET 1=1 


68 INPUT ""3 LINE as 

65 PRINT as 

78 IF a$="" THEN LET 1l=1+1: 6 
ú TO 99 


398 IF as$t(1)="X" THEN GO SUB 1 
29: GO TO 69 

99 LET w$(1)=a$ 

199 LET 1=1+1 

195 IF 1>198 THEN PRINT "Memor 
ia llena”: LET 1=199 

119 GO TO 69 

129 REM Comandos 

139 LET as=a$(2 TO ) 

149 LET c=9 

159 IF a$="impre" THEN LET c=1 
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Wordscreen (proceso de textos) 


169 1F a$="carga” THEN LET c=2 
179 IF a$="graba" THEN LET c=3 


189 1F a$="+in" THEN CLS : 
NT "Bye-Bye"”: STOP 


199 IF a$="inserta" THEN LET c 


299 1F a$="centra"” THEN LET c= 


219 IF a$="borra" THEN RUN 


228 1F a$="audio" THEN LET c=é 
239 IF a$="silencio"” THEN LET 


c=72 


249 IF as="reemplaza" THEN  LET 


c=8 


259 IF a$="margen " THEN LET c 


=9 


269 1F a$="direccion” THEN LET 


c=19 


279 IF a$="edita" THEN LET c=1 


2 


289 IF af="ver" THEN LET c=1i 
2998 1F c=9 THEN PRINT "Comando 


erroneo”: RETURN 

399 GO SUB cx599 

319 RETURN 

599 FOR t=1 TO 1 

519 LPRINT w%s(t) 

529 NEXT t 

539 RETURN 

199% INPUT "Que fichero ",+% 
1919 LOAD £% DATA al) 

1929 LOAD + DATA w%() 

1039 LET 1=a(1) 

1949 RETURN 

1399 INPUT "Que fichero ",+% 
1519 LET a(1)=1 


1529 SAVE £% DATA af) 
1539 SAVE +% DATA wB() 


72 


15439 RETURN 


Wordscreen (proceso de textos) 


208898 INPUT "Despues de que linea 


A 


2083 LET n=n*+1 


2414. FOR t=1 TOsh STEPUSA 
20298 LET wé(t+1)=w*$1t) 


2839 NEXT t 
caso Edil 
204% INPUT "Que 
w$(r) 

2059 RETURN 


inserto "? LINE 


23599 LET cé=w+$11-1) 


2519 LET c=32 
2329 IF CS$tc)=" 


" AND c<>1 THEN 


LEFT. c=se-is 60 TO 2529 


2536 LET cóéó=c%( 


TO cc) 


2546 LET s=(32-C0)/2 


2558 FOR q=1 TO 


s 


2569 LET c$=" "+cs$ 


2578 NEXT q 


280 LETNE1=10) 


2599 RETURN 


3090 POKE 23699, 


3919 RETURN 


=Cc% 


159 


3599 POKE 23699,9 


3519 RETURN 
4999 INPUT "Que 


E r$ 
49198 INPUT "Por 
LINE ns 


4024 FOR t=1 TO 
4939 FOR s=1 TO 
4999 IF wR(t)(s 


reemplazo ", LIN 
que lo cambio ”, 
1 


32-LEN r$ 
TO s+LEN rs$-1)=r 


$ THEN GO SUB 49898 


4959 NEXT s 
408689 NEXT t 
4979 RETURN 


4989 IF s=1 THEN LET w*$(t)=n$+w 
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Wordscreen (proceso de textos) 


$(t) (LEN r$+1 TO) 
4899 1F s<>i THEN 


) 
31046 RETURN 


4590 INPUT "Margen"3m 


4519 LET s$=" 


43529 LET s$=s5$1 TO m) 


45398 FOR t=1 TO 1 


4599 LET wH(t)=5$+wR(t) 


9559 NEXT t 

4558 RETURN 

Saga LET Wwé(i)=" 
Tu direccion,” 

5910 LET w$(1)=" 
Tu direccion,” 

5929 LET ws$(1)=" 
Tu direccion,” 

5839 LET wsti1)="” 
Tu direccion,” 

359844 LET 1=5 

5058 RETURN 

5598 CLS 

5519 FOR t=1 TO 1-1 


5529 PRINT t3":""w*(t) 


5539 NEXT t 
5549 RETURN 


60899 INPUT "Que linea 


69814 PRINT ws$s1n) 


69829 INPUT LINE w$(n) 


608396 RETURN 


74 


WB(t)= ws 
t)(0 TO s-1)+rB+w4S$1(1)(s+ LEN r$* TO 


Control de trabajos 


Este programa ayudará en aquellos negocios en los que 
se realicen varias tareas. Primero a cada faena, se le asigna 
un código, luego se introducen en el ordenador el código, 
la persona que realiza la faena, y algunos comentarios. 
Al ejecutarse el programa, se deberá introducir un código 
de seguridad. En este momento el código es «4y02f» pero 
se puede poner cualquier otro cambiando la línea 50. Es 
posible evitar el código, pero estoy seguro de que detendrá 
a todos los que no sepan mucho de ordenadores. 


Seguidamente aparece un menú que contine las siguientes 
opciones: 


Cargar trabajo Esto carga los datos desde la cinta. 

Grabar trabajo Almacena los datos en la cinta. 

Listar trabajo /faenas Si se contesta «trabajo» se listarán 
todos, mientras que si se contesta «faena» pedirá el código 
y nos listará quien la hace y los comentarios. 

Alterar registros de faenas Pregunta un código, si se intro- 
duce uno, permite cambiar los datos de esa tarea y si se 
pulsa ENTER preguntará los datos de una nueva tarea. 
Trabajo terminado Borra todos los datos de las faenas 
que están en memoria. 

Fin Detiene el programa. 


1989 PRINT AT 10,105 "Work Contro 


20 PAUSE 32 


34 CLS 

46 INPUT "Clave de seguridad " 
5 LINE s$ 

5 IF s$<>"39y82f" THEN GO TO 
70D 
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Control de trabajos 


6€ 
29 


DIM w$(4998,3,32) 
PRINT TAB 19; "Opciones"; OY 


ER 1jA7 9,195" da 


39 PRINT 
39% PFRINT 

1949 PRINT "Cargar trabajO...... 
e pala aldo ce 

119 PRINT 

124 PRINT "Grabar trabajo...... 

CR E 

139 PRINT 

149 PRINT "Listar trabajo/faena 
A RAS A 

1598 PRINT 

159 PRINT "Alterar registros de 
faenas». ..9” 

178 PRINT 

129 PRINT "Trabajo terminado... 
A Ol) 

199 PRINT 

299 PRINT "Fin del programa.... 
a O 

219 PRINT 

22980 PRINT 

2390 PRINT  INVERSE 13 FLASH 13" 
Introduzca la opcion”; 

249 PAUSE Y 

259 LET as=INKEYS 

269 1F a$<"1” OR as>”é6" THEN 6 
O TO 249 

2790 PRINT " "jas 

230 PAUSE 594 

298 CLS 

309 GO SUB VAL a$*x1999 

319 CLS 

329 GO TO 79 
199% LOAD "trabajo” DATA w*(1) 
1919 RETURN 
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Control de trabajos 


20006 SAVE "trabajo" DATA w*() 
29819 RETURN 

30998 INPUT "Trabajo o faena "jd% 
3095 1F de="faena” OR d$="+" THE 
N GO TO 228994 

3093 FOR a=1 TO 499 


3019 IF w$ílas1j1)=" " THEN GO T 
O 3069 
3029 PRINT "Codigo:-"*"whla,1l) 


3039 PRINT "Con:-"*"w$la,2) 
3999 PRINT "Comentarios:-""w$ía, 


3868 NEXT a 

3976 PAUSE Y 

38868 RETURN 

4609 DIM c+$(32) 

4018 INPUT "Codigo "5 LINE cs 

40298 LET b=9 

4830 FOR a=1 TO 498 

4049 IF w$(a,1)=Cc$ AND b=9 THEN 
LET b=a 

9056 MEXT a 

40859 IF b=9 THEN PRINT "Codigo 

no encorntrado”: GO TO 49193 

4976 INPUT "Codigo "” LINE w*(b, 
1) 

4389 INPUT "Con””? LINE w$(b,2) 

4999 INPUT "Comentarios”” LINE w 

$(b,3) 

4199 RETURN 

5989 DIM cx(32) 

5919 INPUT "Codigo "3 LINE cs 
5929 LET b=9 

58638 FOR a=1 TO 499 

5999 IF w$(a,1)=c*$ AND b=9% THEN 
LET b=a 
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Control de trabajos 


SUSE 
3969 
no en 
5979 
5928 
579 
5199 
25009 
¿lg 
6028 
79483 
Ls 

7819 
7029 
7430 
3099 
3919 
292u 
29839 
With: 
wla, 
38049 
2943 
29859 


NEXT a 


IF b=9 THEN 


corntrado": 


RETURN 
cLs 


PRINT "Adios!!'!!"” 


STOP 


PRINT "Codigo 
GO TO 5918 

LET w$(b,1)="" 
LET w$(b,2)="" 
LET w$(b,3)="" 


PAPER 4; INK 9: BORDER $Y: 


BEEP 1,49 
PAUSE 19 


GO TO 79819 


DIM c$(32) 


INPUT "Codigo 


FOR a=1 TO 489 
IF w$(a,i)l=c$ THEN PRINT 
-""w$(a,2)”*"Comentarios:-"?” 


31) 

NEXT a 

PAUSE Y 
RETURN 
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LINE cs$ 
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BOSS (Business Orientated Software System) 


BOSS nos muestra como se pueden unir varios programas 
para formar una gestión integrada. Ello permite pasar da- 
tos de un programa a otro. También les será muy útil a 
aquellos que están cambiando de programa constante 
mente. 

Sólo hay dos pequeños problemas: Debido a su tamaño, 
BOSS sólo funcionará en un Spectrum de 48K, y tardará 
bastante tiempo en teclearlo. Es mejor ir introduciendo 10 
o 20 líneas cada noche que intentar teclear las 600 de una 
vez. 

No sólo será más fácil para usted, sino que además, si 
ocurriese un error de grabación solamente perdería unas 
pocas líneas. 

Una vez lo haya introducido en su totalidad y haya hecho 
RUN se encontrará frente a la página del menú principal, 
en la que se selecciona el programa a usar. Para ello debe- 
rá colocar el cursor, usando las teclas de dirección, sobre 
la primera letra del nombre del programa, y pulsar la tecla 
ENTER. 


Las instrucciones de los distintos programas son: 


Procesador de textos Las mismas que WORDSCREEN. 
Dibujar Las cuatro flechas dibujan una línea en las 4 direc- 
ciones, las teclas 1, 2, 3, 4 dibujan en diagonal. Pulsando 
C se copia el contenido de la pantalla en la impresora y 
con la F se vuelve al menú principal. 

Base de datos Las mismas que el programa que está al 
principio de este libro. 

Gráficos Las del programa de gráficos. 

Calculadora Véase el programa de la hoja electrónica. 
Contab Las mismas que las del programa de contabilidad 
casera. 
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BOSS (Business Orientated Software System) 


Las líneas 1435 a 1450 y la 6270 debe modificarlas según 
sus necesidades. 


= Y 


o Dibujo 


A 
de ode 
AAN 


11000 Ada 


+ 
+ 
+ 
+ 
+ 


Calculador Contab. 


10 DIM 5s*(25,25,32): DIM n(25, 
1277. LET T=1 

208 PLOT 9,175: DRAW 59,4: DRAW 
S,-59: DRAW -359,9: DRAW 8,59 

30 FOR Ca 175 TO I2S SIB SO 
F a7i59 THEN PLOT 39,a: DRAW 19 
¿8 

4% IF ax1i59 THEN PLOT S,az DR 
av 59,9 

590 NEXT a 

69 PRINT AT 2,03"Proceso”*"*"Tex 


79 PLOT 198,175: DRAW 59,9: DR 
AW 9,-59: DRAW -59,9: DRAW 9,59 

389 PLOT 119,165: DRAW 49,9: DR 
AW -498,-49: DRAW 9,49 

9% PRINT AT 7,12;"Dibujo” 

1989 PLOT 298,175: DRAW 59,9: DR 
AW 9,-58: DRAW -59,9: DRAW 9,59: 

119 FOR a=175 TO 125 STEP -5: P 
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BOSS (Business Orientated Software System) 


LOT 224%,a: DRAW 19,9: NEXT a 

128 PRINT AT 7,25;"Base"jAT 8,2 
5;"Datos” 

139 PLOT 9,66: DRAW 59,9: DRAW 
8,-59: DRAW -598,9: DRAW 94,59 

149 FOR a=9 TO 59 STEP 5: PLOT 
a,lé: DRAW 9,59: PLOT 9,1éta: DR 
AN 59,9: NEXT a 

159 PRINT AT 21,9;"Graficas” 

168 PLOT 199,66: DRAW 59,9: DRA 
W 9,-50: DRAW -59,9: DRAW 9,59 

179 FOR a=19 TO 18: PRINT AT a, 
133 "+-%/=": NEXT a 

189 PRINT AT 21,11;3"Calculador” 

198 PLOT 209,66: DRAW 59,9: DRA 
W 4,-59: DRAW -59,9: DRAW 9,59 

299 FOR a=14 TO 18: PRINT AT a, 
26 "44444": NEXT a 

265 PRINT AT 21,25;"Contab.” 

218 LET x=9 

220 LET y=9 : 

2398 PRINT OVER 1j3AT y,x3" ” 

233 PAUSE 19 

246 LET at=INKEYS 

245 PRINT OVER 13487 y,x3" ” 

296 PAUSE 19 

247 1F a$=”" THEN _LET as=i¿NKEY 


259 1F a$=CHR$ 13 THEN 60 TO 3 
269 1F a$="5" AND x>9 THEN LET 
270 1F a$="8" AND x<31 THEN LE 
289 IF a$="é6" AND y<21 THEN LE 


29% 1F as$="7" AND y>9 THEN LET 
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BOSS (Business Orientated Software System) 


319 GO TO 239 
329 IF x=9 AND y=7? THEN GO TO 
1999 
339 IF x=12 AND y=7? THEN GO TO 
2999 
399 IF x=25 AND y=2 THEN GO TO 
3099 
359 IF x=9 AND y=21 THEN GO TO 
43009 
368 IF x=11 AND y=21 THEN GO T 
O 5999 
3798 IF x=25 AND y=21 THEN GO T 
O 6999 
389 GO TO 238 
1999 PRINT AT 19,10; "Wordscreen” 
1995 PAUSE 59 
19109 CLS 
1939 INPUT ""; LINE as 
10833 PRINT as 
1949 IF as="" THEN LET 1=1+1: G 
a TO 1939 
1995 IF as(1)="%*" THEN GO SUB 1 
874: GO TO 1939 
1959 LET s$(1,1)=a% 
1955 LET 1=1+1 
1069 IF 1>25 THEN  PRINT "Memori 
a llena": LET 1=25 
1065 GO TO 1839 
1278 REM Comandos 
19735 LET as$=a$(2 TO ) 
18985 IF a$="imprime" THEN 60 SU 
B 1179 
1999 IF at="carga" THEN GO SUB 
1199 
1995 IF a$="graba” THEN GO SUB 
1215 
1199 IF a$="+in" THEN CLS : GO 
TO 29 
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BOSS (Business Orientated Software System) 


1195 IF a$="inserta"” THEN GO SU 

B 1299 

1119 1F a$="centra" THEN GO SUB 
1275 

1115 IF a$="borra" THEN LET 1=1 
1129 1F at="audio"” THEN 60 SUB 
1325 

1123 IF af="silencio” THEN 60 S 

UB 1335 

1159 IF as$="reemplaza"” THEN 60 

SUB 1345 

1135 1F a$="margen" THEN GO SUB 
14909 

1149 IF as="direccion” THEN 60 

SUB 1435 

1193 IF a$="edita" THEN GO SUB 
1999 

1159 1F a$="ver” THEN GO SUB 14 

79 

11655 RETURN 


1175 LPRINT s$(1,1) 

1189 NEXT t 

1185 RETURN : 

119% INPUT "Que fichero ”,+% 
1209 LOAD +% DATA s$() 

1219 RETURN 

1215 INPUT "Que fichero”, ++ 

12390 SAVE +$ DATA s%() 

1235 RETURN 

1249 INPUT "Despues de que linea 


1245 LET n=n+1 

1259 FOR t=1 TO n STEP -1 

1255 LET s$(t+1,1)=s$(t,1) 

1269 NEXT t 

1265 INPUT "Que inserto "” LINE 
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BOSS (Business Orientated Software System) 


1267 LET 1=1+1 

1279 RETURN 

1275 LET c$=s$(1-1,1) 

1239 LET c=32 

1235 1F c$tc)=" " AND c<1 THEN 
LET e=c-1: 60 TO 1285 

1290 LET c$=c$1t TO c) 

1295 LET s=(32-0)/2 

1309 FOR q=1 TO ss 

13895 LET cé$=" "+c5$ 

1319 NEXT q 

1315 LET s*$(1-1,1)=cs$ 

13208 RETURN 

1325 POKE 23689,159 

1339 RETURN 

1335 POKE 23699,9 

1349 RETURN 

13943 INPUT "Que reemplazo ", LIN 


E rs$ 
1359 INPUT "Por que lo cambio ”", 
LINE n$ 


13355 FOR t=1 TO 1 

1369 FOR s=1 TO 32-LEN rs 

1365 IF s$(t,1)(s TO s+LEN rs$-1) 

=r$ THEN: GO SUB 1385 

1379 NEXT 5 

1375 NEXT t 

1309 RETURN 

1385 1F s=1 THEN LET s%(t,1)=n% 

+s$(t,1) (LEN r$+1 TO ) 

1399 IF síi>1 THEN LET s$(t,1)=5 

$(t,1)( TO s-1)+n$+s5$(t,1) (s+LEN 
eS" "TO. 

1395 RETURN 

1999 INPUT "Margen", m 

1495 LET ps=" 


19419 LET ps=p$( TO m) 
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BOSS (Business Orientated Software System) 


1415 FOR t=1 TO 1 
1928 LET s$(t,1)=p$+s$(t,1) 
1425 NEXT t 
1439 RETURN 
1433 LET s$(4,1)=" 
Tu direccion,” 
1499 LET s$(9,1)=" 
Tu direccion,” 
1445 LET s$(9,1)=" 
Tu direccion," 
14359 LET s$(9,1)="” 
Tu direccion,” 
1455 LET 1=5 
1469 RETURN 
1465 CLS 
147% FOR t=1 TO 1-1 
1475 PRINT t3":""s%$(t,1) 
1429 NEXT t 
1435 RETURN 
1499 INPUT "Que linea",n 
1495 PRINT s$(n,1) 
15949 INPUT LINE s$(n,1) 
1595 RETURN 
2099 CLS 
2919 LET x=8: LET y=8 
2020 LET a$=INKEYS 
2039 IF as="5” AND x>8 THEN  LET 
x=x-i 
2949 IF a$="8" AND x<255 THEN L 
ET x=x+1 
2939 IF a$="6" AND y>9 THEN  LET 
Y=y-=1 
2069 IF as$="7" AND y<1753 THEN L 
ET y=y+1 
294708 1F aé="1" AND x>9 AND yx175 
THEN LET x=x-1: LET y=y+1 
20489 IF ab="2" AND x<255 AND yx<1 
73 THEN LET x=x+1: LET y=y+1 
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BOSS (Business Orientated Software System) 


2999 1F a$="3" AND x>% AND y>9 T 
HEN  LET x=x-1í LET y=y-1 

21994 IF a$="9" AND xx<255 AND y>9 
THEN —LET x=x+1: LET y=y-1 

2119 PLOT x,y 

2129 IF a$="+" THEN CLS : GO TO 
29 

2139 IF as="c" THEN COPY 

2149 GO TO 2929 

3999 PRINT AT 10,7;"Base de dato 
Ss" 

3995 PAUSE 39 

391% CLS 

3929 PRINT TAB 19;”Opciones” 
3925 PRINT AT 9,19; OVER 13” 


3034 PRINT 

3935 PRINT "Crear +icherO....... 
a LE 

3949 PRINT 

39435 PRINT "Ver ficherDic..o..... 


n 
si 


3959 PRINT 
35933 PRINT "Editar ficherD...... 


>= um 
eo. «nessa pod 


35069 PRINT 


32865 PRINT "Cargar ficherOD...... 
ale ode ANA q" 

3074 PRINT 

3075 PRINT "Grabar ficherD...... 
DN AS 


3489 PRINT 

3985 PRINT "Buscar un registro.. 
a 

30998 PRINT 

3091 PRINT "Salir del program... 


” 
.. +. +... 


3892 PRINT 
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BOSS (Business Orientated Software System) 


3995 PRINT INVERSE 13 FLASH 13" 
Introduzca la opcion” 

319% PAUSE Y 

3195 LET bDe=INKEYS 

3119 IF bs<"1" OR bs$>"7" THEN 6G 
O TO 3199 

3115"GcLS 

3116 IF b="1" THEN GO SUB 31353 
3117 IF b$="2" THEN GO SUB 3295 
3118 IF b$="3" THEN GO SUB 3269 
3119 IF b$="4" THEN GO SUB 3289 
3129 IF bá="5" THEN GO SUB 3295 
3121 IF b$="6"” THEN GO SUB 3319 
3122 IF bfi="7" THEN GO SUB 29 
3125 CLS 

3139 GO TO 3929 

3133 INPUT "Nombre del fichero ” 
5 LINE +% 

3149 LET cz=l 

3145 LET r=1 

3159 CLS 

3155 PRINT "Columna "jc 

3169 PRINT rj: INPUT “"j LINE 1% 
: PRINT i%5 

3165 1F is="0Oe" THEN LET c=25: 
LET r=235: GO TO 3189 

3179 IF iM="Sn” THEN. LET r=25: 
GO TO 3180 

3175 LET s%(c,r)=i% 

31898 LET rmp+i 

31835 IF r<>26 THEN 60 TO 3169 
3199 LET c=c+1: LET r=1 

3195 1F c<>26 THEN GO TO 3159 
3299 RETURN 

3293 FOR cwi TO 253 

3219 CLS : PRINT "Columna "se 
3215 FOR rmi TO 25 

3228 PRINT rj” "jebtc,r) 


BOSS (Business Orientated Software System) 


3225 PAUSE 25 


3239 IF INKEY$="n" THEN 
5 

3235 IF INKEY$="e" THEN 
31 LET c=25 

3248 IF INKEYS$="h" THEN 
3245 NEXT r 

3239 NEXT e 

3255 RETURN 

3269 INPUT "Columna "se 
3265 INPUT "Fila "jr 
3279 INPUT s$(c,r) 

3275 RETURN 


LET r=2 


LET r=2 


PAUSE Y 


32898 INPUT "Nombre "; LINE 45 


3285 LOAD f% DATA s$() 
3299 RETURN 


3295 INPUT "Nombre "; LINE 4% 


33099 SAVE 4% DATA s$() 
33435 RETURN 

3319 INPUT "Cabecera de 
"3 LINE cs 

3315 INPUT "Cabecera de 
LINE rs 

33298 LET c1i=2: LET ri=9 
3325 FOR c=1 TO 25 

3339 IF s$(c,1)( TO LEN 
HEN  —LET ci=c 

3335 IF s$(1,c)( TO LEN 
HEN. LET ri=c 

33949 NEXT c 


columna 


fila ”; 


c$)=c$ T. 


r$)=r$ T 


3345 IF ri=2 AND c1=98 THEN PRIN 
T "Fila y columna no encontradas 


": 60 TO 3319 
3359 IF ri=98 THEN PRINT 


o encontrada”: GO TO 3319 


3355 IF cl1=8 THEN PRINT 


"Fila nr 


"Columr 


a ho encontrada”: GO TO 3319 
3369 PRINT FLASH 1;”"Registro en 
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contrado!:” 


3365 PRINT 

3379 PRINT 

3375 PRINT s$(c1,r1) 

3389 PAUSE Y 

3385 RETURN 

4989 PRINT AT 19,19;"Graficos" 


4995 


PAUSE 359 


4910 CLS 

4815 INPUT "Numero de datos a re 
presentar";3n 

403 FOR a=1 TO n 


4835 INPUT ("Dato numero "jaj" ” 

inta,1) 

4949 NEXT a 

4945 CLS 

4059 PRINT TAB 19;"Opciones” 

4055 PRINT.: PRINT : PRINT 

4868 PRINT "Produce grafico line 

ea e 

4865 PRINT 

497% PRINT "Produce grafico de b 

ES 

4975 PRINT 

498% PRINT "Produce diagrama de 

sectores. ..3” 

49258 PRINT 

4994 PRINT "Editar CatOS........ 

ARE 

4095 PRINT 

3180 PRINT "Grabar CatoOB:....... 

E e nd 

11045 PRINT 

9116 PRINT "Cargar datOS....»..:. 

os 8 

3112 PRINT 

4115 PRINT "Fiz del programa.... 
A a e e ON 
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4117 PRINT : PRINT : PRINT 

4129 PRINT  INVERSE 13 FLASH 1;" 
Introduzca la opcion" 

4125 PAUSE Y 

4139 LET a$=INKEYS 

4135 IF a$<"1" OR a$>"7?” THEN 6 
O TO 94125 

4144 CLS 

4191 IF as="1" THEN GO SUB 34169 
4142 IF a$="2" THEN GO SUB 4235 
4143 IF a$="3" THEN GO SUB 4329 
4144 IF a$="94” THEN GO SUB 4935 
4145 IF a$="5" THEN GO SUB 4965 
4146 IF a$="6" THEN GO SUB 4498 
4197 IF a$="7" THEN GO TO 28 
4159 CLS 

94133 60 TO 4959 

34169 INPUT "Color ";3c 

41653 INK c 

4178 LET max=9 

4175 FOR a=1 TO ri 

4189 1F nífa,ll»max THEN LET max 
=nfa, 1) 

4185 NEXT a 

9199 LET vs=175/max 

4193 LET hs=255/ (n-1) 

4249 FOR a=2 TO n 

42485 DRAW Hs, (nta, 1)-nta-1,1))%v 
S 

2219 NEXT a 

42153 PAUSE Y 

4228 1F INKEYS%="c" THEN coPY 
4225 INK Y 

4239 RETURN 

4235 INPUT "Color ea 

42498 INK € 

47938 LET max=g2 

92398 FOR a=1 TO n 
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425% 
=pía, 
13250 
4265 
4279 
4273 
42390 
4285 
la, 1) 
a202 
4295 
43090 
4305 
3313 
a7i5 
4320 
4323 
43309 
9335 
4399 
4345 
4359 
49355 
4369 
4365 
4379 
4375 
4389 
4385 
4398 
4395 
4409 
4495 
44198 
4415 
4429 
4425 
4439 


BOSS (Business Orientated Software System) 


IF nía,l)omax THEN LET max 
1) 

NEXT a 

LET vs=175/max 


LET hs=255/n 

FOR a=1 TO n 

FOR b=1 TC hs-1 

PLOT (a-1)XhHs+5,0: DRAW S,r: 
kvs 

MEXT b 

NEXT a 

PAUSE Y 

1F INKEYS%="c" THEN COPY 
INK gy 

RETURN 

INPUT "Color "jc 

INK c 

CIRCLE 128,87,87 

LEY sum=9 

FOR a=1 TO n 

LET sum=sum+n(a, 1) 

NEXT a 

FOR a=1 TO hn 

LET nta,2)=1(n(a,1)/sum)X*369 
NEXT a 

LET rotate=9 

FOR a=1 TO n 

LET b=n(a,2)+rotate 

LET s=SIN (bxXPI/189) 

LET c=COS (bDXPI/1280) 
PLOT 128,87 

DRAW s*xS87,Ccx*x87 

LET rotate=rotate+nía,2) 
NEXT a 

PAUSE Y 

IF INKEY$="c" THEN COPY 
INK Y 

RETURN 
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BOSS (Business Orientated Software System) 


94435 FOR a=1 TO hn : 

44998 PRINT "Dato numero "jaj"="; 
nta,i) 

4443 NEXT a 

9454 INPUT "Editar que dato "ji 
4455 INPUT "Cambiarlo por Yin ti, 
1) 

43609 RETURM 

4463 LET n(1,3)=p 

4989 SAVE "Grafico" DATA n() 
4485 RETURN 

4515 LOAD "Gratico” DATA n() 
4515 LET n=n(1,3) 

45298 RETURN 

50935 PRINT AT 19,185 "Zx-Calc" 
5019 PAUSE 59 

5915 CLS 

5429 LET x=1 

5925 LET y=1 

5439 GO SUB 5959 

59035 GO SUB 351499 

5949 GO SUB 5215 


5845 GO TO 5939 
5059 CLS 
5455 FOR v=x TO x+2 
5969 PRINT AT 2, (v-x)X8+53vy 
5965 NEXT y 
35979 FOR v=y TO y+18 
5975 PRINT AT v-y+3,9jv 
59898 NEXT y 
588535 FOR v=x TO x+2 
35999 FOR w=y TO y+18 
5095 IF s$(v,w)=" 
" THEN GO TO 5 
125 
51998 PRINT AT w-y+3, (v-x)X8+5; 
5195 LET q=1 
5119 IF s$(v,w,1)=" " OR (CODE s 
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BOSS (Business Orientated Software System) 


(Y,¿w,11>47 AND CODE s$fv,w,i)<5 
$) THEN  LET q=9 
5115 IF q=1 THEN. PRINT s$(v, vo) 1 
TO €) 
5129 IF q-8 THEN.” PRINT VAL (55% 


3125 NEXT yw 
25138 NEXL v 
135 RETURN 
5195 PRINT AT 1,95” 


158 LET ig="" 
155 50 SUB 3195 
169 IF 36=CHR$ 12 THEN LET i%= 
$1 TO LEN i$-1) 
5165 IF 3$=CHR$ 12 THEN LET 9%$= 


5178 1F CODE 3$=13 THEN RETURN 

51229 PRINT 9%; 

5185 LET i$=i$+9%$ 

5199 60 TO 5155 

5195 REM Get key 

35240 PAUSE Y 

5295 LET 9$=INKEYS 

3210 RETURN 

5215 REM Interpreta Comando 

5229 IF iét="input" OR i$="i" THE 

N 60 SUB” 5205 

5225 IF i$="save" CR i$="s"” THEN 
GO SUB 5435 

5239 IF i$s="load" OR i$="1” THEN 
GO SUB 5435 

5235 IF i$="print" OR i$5="p" THE 

N GO SUB 5475 

35248 IF i$="borra" THEN DIM s$( 

25,25,32): 60 TO 509Y 

52495 IF i$="+in" OR 1$="$" THEN 
CLS : 60 TO 29 
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5268 
5265 
5279 
3275 


35289 
35295 
5299 
52953 
5309 
5395 


RETURN 

REM input 

PRINT AT 9,98)"Donde?" 
GO SUB 5149 


PRINT AT 9,91" E 

GO SUB 5375 

IF p=9 THEN GO TO 5265 

LET a=VAL i8s( TO p-1) 

LET b=VAL iS(p+1 TO ) 

IF a<í OR a>25 OR b<1 OR b> 


25 THEN GO TO 35265 


3319 
3315 
3329 
35325 
5339 
3335 
5349 
35345 
3359 
5355 
5369 
33605 
353790 
5375 
5389 
5385 
35399 
5395 


LET x=a-2 
LET y=b-19 

IF x<1 THEN LET x=1 

IF x>23 THEN LET x=23 

IF y<1 THEN LET y=1 

IF y>7? THEN LET y=7 

GO SUB 5959 

PRINT AT 2,9;"Que?" 

GO SUB 5149 

IF i$="7" THEN GO SUB 5419 
LET sf(a,b)=i5 

GO SUB 5239 

RETURN 

REM INSTR$(1$,",") 

LET p=8 

LET pmp+1 

LET ps=i8(p) 

IF ps<>"," AND p<>LEN 1% TH 


EN 60 TO 5385 


59909 
5495 
5419 
3415 
35429 
5425 
5939 
59353 


IF p=LEN 18 THEN LET p=9 
RETURN 

REM Formula 

PRINT AT 94,9;3"Formula?" 
INPUT 15 

LET i$=" "+i5$ 

RETURN 

PRINT AT 94,8; "Nombre?" 
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BOSS (Business Orientated Software System) 


5449 GO SUB 5149 

5995 SAVE 1% DATA 5%() 

5459 RETURN 

54595 PRINT AT 8,0; "Nombre?" 

5469 GO SUB 5149 

5465 LOAD 1% DATA s$() 

594798 RETURN 

5475 PRINT AT ga" 

5489 PRINT AT 1,983" 

3485 COPY 

54998 RETURN 

6029 PRINT AT 19,8;"Contabilidad 
Casera" 

6083 PAUSE 59 

égig cLs 

698298 INPUT "Mes (1-12) "jm 

6925 IF m<1 OR m>12 THEN GO TO 
6UZ2g 

683% LET mé="Enero :¿Febrero:Mar 
zO ¡Abril ¿Mayo ¿Junio ¿Jul 
lo ¡Agosto :Septiem:Octubre:Nov 
iemb:Diciemb" 

é235 LET bs="; E : 

é9498 1F m<=2 THEN PRINT TAB 33m 

$( TO 24) 

68945 1F m>3 AND m<=6 THEN PRINT 


TAB S3m*$(25 TO 48) 

6847 1F m>6 AND m<=9 THEN PRINT 
TAB 8;ms$(49 TO 72) 

6849 IF m>9% THEN PRINT TAB 3;3ms 
(23 TO ) 

5930 RESTORE 


oaS3 


LET c=4 


6859 READ ys$ 
6865 IF y$="+ir" THEN GO TO 698 


a 
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BOSS (Business Orientated Software System) 


50798 PRINT y*¡TAB 7jDb$: LET c=c+ 


69875 GU TC 69959 
6377 1F m<=3 THEN LET s=1 
€939 IF m>3 AND mí=6 THEN LET s 


6883 IF m>6 AND m<=92 THEN LET s 


68383 IF m>=18 THEN LET s=19 
é8998 FOR a=s TD s+2 

62893 FOR b=1 TO c 

6180 PRINT AT b,3+ (a-5)%X3; 

6195 IF níb,a)<>98 THEN PRINT rí 


51198 NEXT b 

6ii5 NEXT a 

é129 FOR b=1 TO c 

6125 PRINT AT b,9;5 OVER 1;"_ 


6134 NEXT b 

6135 PRINT AT c+1,9;"TOTAL” 

6149 FOR a=s TC s+2 

6195 LET t=n1í(1,a) 

615% FOR b=2 TO c 

6155 LET t=t-níb,a) 

6169 NEXT b 

6165 PRINT AT c+1,8+(a-s)Xx8;t 
6179 NEXT a 

6175 INPUT "1"; LINE cs$ 

61898 IF cs$="nuevo mes” OR cs$="n" 
THEN CLS : GO TO 69829 

él185 IF c$="copy” OR c$="c” THEN 
COPY 

é199 IF c$="input" OR cs$="i" THE 

N GO TO 6219 

6195 IF cs$="load" OR c$="1" THEN 

INPUT [FLASH 153"?"3 LINE $$: L 
DAD +£% DATA n() 
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6299 1F cé="save" OR cz"s" THEN 
INPUT FLASH 15*?"3 LINE +8: S 

AVE + DATA n() 

6292 1F i8S="+fin" OR 18="4+*" THEN 
CLS : GO TO 29 

6295 GO TO 6175 

6219 INPUT "Que? "3 LINE w% 

6215 RESTORE 

6229 LET d=9 

6225 FOR a=1 TO € 

6239 READ ys 

6235 IF LEN WS>LEN y THEN GO T 
O 62495 

6249 IF y$( TO LEN w%8) =w% THEN 
LET d=a 

6245 NEXT a 

6259 IF d=9 THEN GO TO 6219 
6255 PRINT AT d,8+ (m-5)%8; OVER 
13 FLASH 15” si 

6269 INPUT FLASH 153”"="3n1(d,m) 
6263 CLS : GO TO 69499 

6279 DATA "Anter.”,”"Agua","Elect 
","Gas”, "Letras", "Coche", "Otros” 
al US 
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Modificaciones para 16K 


Algunos de los programas necesitan de pequeñas modifi- 
caciones para funcionar con 16K, A continuación se listan 
todas. 

Calendario No requiere modificaciones 


Database El fichero sólo puede tener 15 filas por 15 colum- 
nas o menos. Cambie las siguientes líneas. 


48 DIM a$(15,15,32) 
1069 1F i$="2Se" THEN LET c=15: 
LET r=i5: 606 TO 1999 
1978 1F i$="Se" THEN LET r=15: 
GO TO 1999 
1199 IF r<>1ó THEN GO TO 1059 
ií129 IF c<>ló THEN GO TO 1939 
2080 FOR c=1 TO 15 
2018 FOR r=1 TO 15 
6838 FOR c=1 TO 15 


Diseño de circuitos No requiere modificaciones. 


Fichero Sólo dispone de memoria para 19 fichas. Cambie 
las siguientes líneas: 


104 DIM c+$(19,320) 
29 DIN t$(19,19) 
1049 FOR a=1 TO 19 
2839 FOR a=1 TO 19 


Gráficos No requiere modificaciones. 


Contabilidad casera No requiere modificaciones. 
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Lista de direcciones Solamente se pueden almacenar 46 
direcciones. 
Las alteraciones son: 


4% DIM a$(46,169) 
1915 FOR p=1 TO %é 
2429 FOR p=1 TO 46 
3938 FOR p=1 TO 46 
4989 FOR p=1 TO 96 
6099 FOR p=1 TO 46 


Matrices Sólo permite matrices de 6x6. Los cambios son: 


55 DIM mí(26,6,6) 
1998 IF ms="N" OR ms$="n" THEN L 
ET r=é: 60 TO 1128 
1199 IF m$="E" OR m$="e" THEN t 
ET r=é: LET c=6: GO TO 1128 
1139 1F r<? THEN GO TO 1989 
1159 IF c<7 THEN GO TO 19469 


3299 FOR x=1 TO 6 
3239 FOR r=1 TO 6 
39449 FOR x=1 TO 6 
3959 FOR r=1 TO 6 
3649 FOR x=1 TO 6 
3659 FOR r=1 TO 6 
3679 FOR r=1 TO 6 
4924 DIM c(6,6) 

49039 FOR x=1 TO 6 
4949 FOR r=1 TO 6 
5998 DIM c(6,6) 


5939 FOR x=1 TO 

59499 FOR r=1 TO 6 

é049 FOR r=1 TO 6 

6159 1F d$="t" AND c<9 THEN LET 
escri: 60 TO 6939 


US 
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Modificaciones para 16K 


Hoja electrónica: Con 16K sólo puede tener 14x14 celdas 


en vez de 35x35. Realice los siguientes cambios: 


62 DIM 88(14,14,32) 
199 FOR v=1 TO 14 
239 FOR w=1 TO 19 
789 IF a<1 OR a>14 OR b<1 OR b> 
14 THEN GO TO 799 
829 IF x>16 THEN LET x=16 


Control de stocks Requiere las siguientes modificaciones: 


28 DIM 6(63,5,29) 
3999 FOR a=1 TO 63 


49994 FOR a=1 TO 63 
58398 FOR a=1 TO 63 
6849 FOR a=1 TO 63 


Solo puede almacenar 46 artículos 
Wordscreen No requiere modificaciones. 


Control de trabajo Se necesitan hacer las siguientes 
modificaciones: 


68 DIM w$(74,3,32) 
39898 FOR a=1 TO 74 
4999 FOR a=1 TO 749 
5939 FOR a=1 TO 74 
89829 FOR a=1 TO 74 
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LIBROS PARA TU 
MICROORDENADOR 


ZX SPECTRUM - QUÉ ES, PARA QUÉ SIRVE Y CÓMO SE USA 
por Tim Langdell, P.V.P. 1.100 Ptas. 

ZX SPECTRUM - APLICACIONES PRÁCTICAS PARA LA CASA Y LOS 
PEQUEÑOS NEGOCIOS 

por Chris Callender, P.V.P. 870 Ptas. 

18 JUEGOS DINÁMICOS PARA TU ZX SPECTRUM 

por P. Monsaut, P.V.P. 650 Ptas. 

PROFUNDIZANDO EN EL ZX SPECTRUM 

por Dilwyn Jones, P.V.P. 1.300 Ptas. 

CÓMO CREAR TUS JUEGOS SPECTRUM 

por R, Rovira, P.V.P 750 Ptas. 

DRAGON - QUÉ ES, PARA QUÉ SIRVE, CÓMO SE USA 

por lan Sinclair, P.V.P, 1.300 Ptas. 


18 JUEGOS DINAMICOS PARA TU DRAGON 32 
por P. Monsaut, P.V.P. 650 Ptas. 


COMMODORE 64 - QUÉ ES, PARA QUÉ SIRVE Y CÓMO SE USA 
por D. Ellershaw y P. Schofield, P.V.P. 950 Ptas. 

COMMODORE 64, APLICACIONES PRÁCTICAS PARA LA CASA Y LOS 
PEQUEÑOS NEGOCIOS 

por Chris Callender, P.V.P. 830 Ptas. 

18 JUEGOS DINÁMICOS PARA TU COMMODORE 64 

por P. Montsaut, P.V.P. 650 Ptas. 

INTRODUCCIÓN AL MSX 

por Vanryb y Politis, P.V.P. 1.100 Ptas. 

DICCIONARIO MICROINFORMÁTICO 

por R. Tapias, P.V.P. 990 Ptas, 


Pídalos en su librería, tienda de informática o solicítelos directamente a la editorial 
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Hasta la fecha, muchos utilizaban su 2X 


aprovechándolo al máximo, gracias a la 
ayuda de esta gran colección de simples 
programas prácticos presentada por Chris 
Callender y Editorial Noray. 


Si quiere utilizar su ordenador como un 
procesador de textos, tenemos el progra- 
ma, PROCESO DE TEXTOS, que lo hace 
para Vd. Podrá controlar sus cuentas con 
el programa de CONTABILIDAD CASERA, 
organizarse su vida con la AGENDA y con- 
sultar sus números de teléfono con el LIS- 
TIN TELEFONICO. 


Los 15 importantes programas que se 
explican en este libro le permitirán em- 
plear su ZX SPECTRUM de formas muy 
variadas y útiles para el hogar o el ne- 
gocio. 


El programa final, BOSS (Sistema de 
software orientado a los negocios) le ofre- 


